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1. INTRODUCTION 


1.1 Tk history rfwtw pre paid *!. 

The first use of mechanical propulsion at sea dates back at (east 2000 years The 
Roman army recognized the advantages of independence from wind and current. Before 
the birth of Christ they used paddle-wheel driven, oxen powered boats to transport 
soldiers in the Mediterranean Sea. Mechanical propulsion took the next great leap 
forward in 1783 at Lyons, France, where a steam engine was used to propel a paddle- 
wheel driven barge on the Rhone river. 

Archimedes and Leonardo da Vinci are both credited with the initial concepts of 
screw propulsion. Archimedes developed the idea of the screw pump, which provided 
inspiration to the developers of marine propulsion in the 19th century Leonardo da Vina 
produced sketches of a screw propeller that resembles the blades of a modem cooling 
fan. 1 

Modem screw propulsion appears to have been first proposed in England by 
Robert Hooke in 1680 and first used by Colonel John Stevens at New York in 1804 2 
Acting for the United States and British Royal Navies respectively, John Ericcson and 
Francis Pettit Smith made practical applications of screw propulsion in the early 1800's 
Both men received patents for screw propulsion in 1836 and soon had successfully 
demonstrated the advantages of the screw propeller over alternative forms of mechanical 
propulsion. 2 
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1J The history of digital computers. 

The birth of the concept of the modem digital computer can be traced back almost 
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u farts the screw propeller Charles Babbage, an English mathematician, proposed the 
‘analytical engine* The analytical engine was to be a totally mechanical, steam-driven 
machine capable of performing the five basic data processing functions: data input, 
arithmetic processing, data storage, data output, and control of the operations Although 
Babbage's engine failed because of the lack of adequate hardware, the concept formed the 
basis of the modem digital computer. 4 

The development of the computer accelerated in the 1940‘s The Marie I 
computer, an electromechanical calculator was buih at Harvard University by Dr. Howard 
Aiken in 1944. The Electronic Discrete Variable Computer (EDVAC) was built at the 
University of Pennsylvania between 1946 and 19S2. The EDVAC was the first computer 
to allow instructions to be stored in memory rather than to be hard wired The UNTVAC 
1 was introduced as the first mass produced digital computer and the first to be used in 
business applications International Business Machines Corporation (IBM) entered the 
business computer market 1950’s 5 

The design of marine propellers took a great step forward with the development of 
the high speed digital computer The digital computer is particularly suited to the 
application of circulation theory to propeller design It is a simple matter to employ a 
computer to perform the repetitive calculations inherent in the application of circulation 
theory to hydrofoil and pr o pe ll er design 

While the first generation of digital computers made use of vacuum tube 
t ech nolog y and performed data processing operations in milliseconds, the second 
gen er ati o n emplo y ed transistor technology and per fo rmed operations in mi c ros e co nds. 
Third generation computers using integrated-circuit technology reduced computation 

a O— Sfc*>«. Cm^mn mt*j*mm*m*i»mmQ**m MbO ww-H J Bm* C—>— y . 1M4). 

m* 
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times to nanoseconds. Improved technology at rapidly lowering cost allowed Commodore 
and Apple in 1977 to introduce computers designed for home and non-professional use. 
IBM followed with the IBM PC (personal computer) in 1981.' 

The state of the art of the personal computer user interface for the years that 
immediately followed the introduction of the IBM PC was the fiuniiiar DOS prompt, 
shown in figure 1-1. 

O 

Figure 1-1. DOS Prompt 

The DOS prompt continued its dominance of the persona) computing world until 
wefl after the release of Windows™ 1.01 by the Microsoft* Corporation in 198S. The 
release of Windows™ 1.01 was quickly followed by the release of subsequent, more 
capable versions. This coupled with rapidly developing hardware enabled Microsoft 
Corporation to establish Windows™ as the dominant operating environment for personal 
computers in the late 1980's and early 1990's. 

Windows offers multitasking, memory management, device-independent graphics, 
tnd s consistent user interface Once a user masters his or her first Windows™ 
application, h is a snail task to master the next. Figure 1-2 depicts a typical Windows 
ap pli ca t i on. Windows™ users find the control-menu box, the title, menu, and tool bars, 
the maximize and minimize buttons, and the horizontal and vertical scroll bars both 
fiuniiiar and intuitively useftil Even the most ardent purist will eventually come to prefer 
the responsveneas of Windows™ to the puritan har s h n ess of figure 1-1. 

Stoat WX. TW BM PC ami hi (Nw Y«fc Mi WS»j a Iw, !■«, IW). 
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Figure 1-1. MS-DOS Prompt 


The MS-DOS prompt continued its dominance of the personal cc 
until well after the release of Windows 1.01 by the Microsoft Corporation m 19| 
release of Windows 1.01 was quickly followed by the release of subsequent, m^ 
versions Thu coupled with rapidly developag hardware enabled Microsoft Cc 
estabksh Windows as the dominant operating environment for persona! compu 
late 1980's and early 1990‘s 




Figure 1-2. Typical Windows™ based application 
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1.4 The employment of personal computers in hydrofoil and propeller design. 

It is the intended purpose of this thesis to demonstrate the feasibility and i • 

desirability of the employment of personal computers in hydrofoil and propeller design 
The approach will be incremental in nature First, Windows™ applications based upon 
relatively simple, traditional FORTRAN codes from the MIT Hydrofoils and Propellers 9 ’ 

course will be designed The intent of these initial applications is to serve as a vehicle for 
developing the tools that will be required in implementing more complex codes 

The second step in this process will be to implement the MIT Propulsor Lifting 9 

Line Code (PLL) in a Windows™ application PLL is a tool used for the preliminary 
design of marine propuisors. It can be used in the design of propuisors with a relatively 
high degree of complexity. PLL can serve as the starting point of a "blank sheet of paper" 9 

design and can be used in conjunction with codes used to design blade shapes, to analyze 
cavitating propellers, and to analyze steady and unsteady propeller forces. 

The third step will be to implement the MIT Propeller Blade Design Code (PBD) 9 

as a part of the PLL Windows™ application. PBD is a vortex-lattice combined design and 
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analyse code. It is capable of the design and analyse of multi-stage open and ducted 
p r o pe ll er s . The integrated application wffl provide a seamless link between PLL and PBD. 








2. HYDROFOIL DESIGN APPLICATIONS 


2.1 The HydnMI Vertex Lattice Liftiag Line Propm. 

The Hydrofoil Vortex Lattice Lifting Line Program 7 (VLL) is a FORTRAN code 
that demonstrates a vortex lattice numerical approximation of a straight lifting line. VLL 
calculates the exact and numerical values of induced velocity, total lift, and total induced 
drag for a circulation distribution defined by five Giauert coefficients*. The program also 
calculates percent error values for lift, drag, and the ratio of lift to drag squared. Output is 
provided in the form of text written to the screen and a plot file which may be used with a 
suitable graphics program 

VLL was selected for the initial step in demonstrating the feasibility and 
desirability erf'the employment of personal computers in hydrofoil and propeller design. It 
was selected fix two reasons. First, the program is relatively short and could be easily 
converted from FORTRAN to the C programming language. Second, the implementation 
of VLL in the Windows™ environment would result in immediately recognizable 
imp rovements in the user interface, in terms of input, output, on-line help and portability. 


2.1.1 A comparison ef VLL and the Windows™ version of VLL. 
Figure 2-1 is a sample of the screen output provided by VLL. 


13.04 Urt—Nrtw Ity+ Wb* mmt tnfttmn (C—fcrid^ M—cfc—«■«: M«—d——i latam* afT«d»pl<ny. 

imxHi 

*R (Smrt. D—It mi Amwxvw Tfc— r y (tUMhridp U y vnnfr y fw, 1924). 







forrrxLATTiciurniicu«4JMJ<ximc*wn^ionjaajrrj 

cucotATW ooonapm acji 

ijaooaoo 
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Vf TC GAMMA TREE) WQTOIO GOTOM) 

-03000 - 0 . 493 * *03139 .10000 - 0.9939 *03142 
■ 0.4735 - 0.4435 *09010 -19000 -09939 *09117 
■ 0.4045 -03394 * 1.4142 -19000 -09939 * 1.4200 
■03999 -03270 * 1 . 7*20 -19000 -09939 * 1 . 7*94 
- 0.1345 - 097*2 *19734 -19000 -09939 * 19*93 
*09000 * 097*2 *19734 -19000 -09939 * 19*33 
* 0.1343 *03270 * 1 . 7*20 -19000 -09939 * 1 . 7*94 
*03939 * 0339 * * 1.4142 -19000 -09939 * 1.4200 
* 0.4043 * 0.4435 * 090*0 -19000 -09939 *09117 
* 0.4735 * 0 . 499 * *03129 -19000 -09939 *03142 
*03000 
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Figure 2-1. VLL Sample Output 

Figure 2-2 is * sample of the output of the Windows™ version of VLL. It is for 
the same case as the output depicted in figure 2-1 above 



Figure 2-2. Windows™ VLL Sample Output 
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Figures 2*1 and 2-2 both display virtually the same information. Careful inspection 
reveals that the CHauert coefficients, the number of elements used, and percent errors are 
immediately available in text format. The remaining data, with the exception of the 
spanwise position of the lattice vortices is presented in graphical format The Windows™ 
program also creates an output file similar to figure 2-1 for each run. The section of the 
output file corresponding to figure 2-1 is shown in figure 2-3. 

eoam urnnoum-uwtoumost wrra to elements 
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Figure 2-3. Windows™ VLL Dau File 


It is dear by inspection of the output provided by the two programs that the 
Windows™ version of VLL offers tangible imp rovements in the output provided. It also 
offers im provements in the area of data input. The FORTRAN version of VLL provides 
for user input in the traditional terminal interactive mode. Upon execution, the program 
prints a series of promp ts to the screen. The program accepts and screens user input, and 
then processes the input essentially in a batch mode. The screen and file output are 
produced im med ia tely prior to tcrminatioo of the executable. 








Upon execution of the Windows™ version of VLL, the main window is created. 
The values of the data input manually in the FORTRAN program are automatically 
initialized. The user may elect to alter the default values for any or all of the GUuiert 
coefficients, the number erf* vortex elements in the lattice, or the sparing of the vortices r 
control points. This is accomplished by using the Options pull down menu and invoking 
the ap propriate dialog box. Figure 2-4 depicts the main window with the Geometry dialog 
box active. 



Figure 2-4. Windows™ VLL Geometry Dialog Box 

After the input data has been altered, the output is calculated and displayed by 
•electing the Run option from the File puQ down menu. This action causes output similar 
to figures 2-2 and 2-3 to be created. Unlike the FORTRAN version, the executable does 
not terminate, but rather remains running, awaiting further user input. The user may elect 




to further alter the input, terminate the program, print a copy of the screen output to the 
system primer, or view the on-tine help available by using the Help pull down menu 
The on-line help provided by the FORTRAN version of VLL is limited to that 
provided with the input prompts. The Windows™ version provides a general description 
of the program, specifics regarding the use of each item on the pull down menus, and 
information about the authors of the program. Figure 2-5 shows the VLL screen with the 
OptionsjGeometry help message box displayed. 
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Figure 2-5. Windows™ VLL with Help displayed 

Portability is another advantage of progr ammin g fix the Windows™ environment. 
Windows provides the interface between the executable file and the screen or printer, 
obviating die need to write multiple device drivers. The programs described in this thesis 
are designed to run on any IBM compatible PC with adequate memory under Windows™ 
3.1. They also may be run under Windows™ 95. 




L2 The structure ef a Wl a dtw i™ prograae. 

The advantages inherent in programming in the Windows™ environment do not 
come without a price. The FORTRAN version of VLL consists of about ten pages of 
code in two files. The Windows™ version, on the other hand, consists of on the order of 
75 pages of code in a dozen files. Some of the difference is explained by the addition of 
graphical output, but the largest factor is explained by the structure of a Windows™ 
program. 

The most basic of Windows™ programs requires at least two functions. The first 
is the WinMain function and the second is the MainWndProc function. Adding the 
functionality of a main menu requires an additional function, the WMCommand_Handler 
function. The addition of each dialog box requires two more functions, one to initialize 
the box and one to process the input from the dialog box. 

In addition to the functions that are part of the Windows™ program structure, the 
VLL program also uses separate functions to perform the hydrodynamic computations and 
to write output to the screen and printer. 

The first three sections of Appendix A provide detailed descriptions of the VLL 
WinMain, MainWndProc, WMCommand Handler functions. Appendix A. 4 describes the 
VLL dialog functions and the sub-sections of Appendix A. 5 describe the output functions 
that are used in VLL. AH of the function, header, resource, and definition files that make 
up the VLL program are contained in Appendix A6. 

Figure 2-6 below shows the interrelationships between the functions described 


below and the output hardware. 



Figure 2-6. Windows™ Program Structure 
2.2.1 The WinMain Inaction. 

The WinMain function is the main entry point for an application. Typically the 
WinMain function performs the following tasks: 

-set up a window class structure 
-register a window class using that structure 
-create and display a window based on the registered class 
-enter a message loop that receives and processes messages from Windows™. 
The WinMain function for VLL is d es c ri bed in detail in Appendix A. 1. 


2.2.2 The MakaWndPrec hactha. 

The second ftmction required in a Windows™ program is the MainWndProc 
function. The MamWadPtoc ftmction is referred to as the window procedure. It is 
actually a caHsrfc ftmction that uses a switch in processing and responding to Windows™ 
messages The MainWndProc for VLL is described in detail in Appendix A.2. 











113 The WMCommandHaadler hactioa. 

The WMCommandHandler function provides the functionality of a main menu for 
a Windows™ program. It consists of a switch that handles messages sent to the 
application by the Windows™ environment in response to user selections from the main 
menu. The WMCommand_Handler function used by VLL is described in detail in 
Appendix A.3. 



1X4 Dialog functions. 

Dialog boxes are a convenient means for allowing the application user to provide 
input to the program. The use of a single dialog box requires that two functions be added 
to the functions described above. The first is a callback function, similar to the * 

MainWndProc. The purpose of the function is initialize the data displayed in the dialog 
box when it is created, and to refer messages received by the dialog box to the second 
function. * 

The second function is similar to the WMCommandHandler function The 
purpose of ties function is to handle messages received by the dialog box, usually 

messages from an "OK" or "CANCEL* button. The user interaction with the dialog box, * 

other than the "OK" or "CANCEL" buttons is typically handled by the Windows™ 
envir on ment. The dialog functions used in VLL are described in detail in Appendix A.4. 


Application p r ograms in the Windows™ environment provide the user with the 

n 

advantages of a graphical user interface (GUI) and the pro gramm er with the advantages of 
the graphical device interface (GDI). The GDI provides over SO graphics routines in the 
application progr am interface (API)- These functions allow the progra mm er to generate 


25 




1 


£ 


• • 



output without becoming involved in the specifics of a particular piece of hardware. 9 

The VLL program uses four separate functions to provide output. Two provide 
output to the monitor and two provide output to the system printer. Each pair consists of 
a function that draws the current variable data and a function that draws the graphs and 
the percent error table. The output functions are described in detail in Appendix A, 
section 5. I through 5.3. 

2J The 2D Vortex/Source Lattice with Lighthill Correction Program. 

The 2D Vortex/Source Lattice with Lighthill Correction Program(VLMLE) is a 
FORTRAN code that demonstrates a vortex lattice numerical approximation for the two 
dimensional hydrofoil problem. It is a version of the VLM2D FORTRAN program 10 , 
revised by Kerwin to include a Lighthill leading edge correction 11 . The leading edge 
correction prevents the infinite tip velocity predicted by linear theory for angles of attack 
other than the ideal angle of attack. VLMLE takes inputs of the number of panels, ideal 
lift coefficient, angle of attack relative to the ideal angle of attack, and thickness to chord 
ratio The program calculates the pressure distribution over the upper and lower surfaces 
of the foil assuming a NACA-66(Mod) thickness form with a NACA 8=0.8 mean camber 
tine. It writes the computed total lift coefficient to the screen and provides an output file 
that can he used in conjunction with a suitable graphics program. 

The implementation of VLMLE in a Windows™ application was chosen as an 
intermediate step in demonstrating the feasibility and desirability of the employment of 
personal computers in hydrofoil and propeller design. It was chosen for two reasons. 
First, the program seemed suitable to adaptation u a stand alone executable called by a 
Windows™ application Second, as with VLL, the Windows™ environment offered 
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immediately recognizable improvements in terms of the user interface, input/output, on- 
] line help and portability. 

13.1 A comparison of VLMLE and the Window*™ version of VLMLE. 

The screen output provided by VLMLE is limited to the computed total lift 
coefficient. Figure 2-7 is a sample of the output of the Windows™ version of VLMLE. 
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Figure 2-7. Windows™ VLMLE Sample Output 
An inspection reveals that the input data, number of panels, ideal lift 
coefficient, angle of attack relative to ideal angle of attack, and thickness to chord ratio 
may be reviewed in the Current Variable Data area. The negative of the pressure 
coefficient on the upper and lower surface is plotted versus position on the foil non- 
dimensionalized with the chord on the graph, and the computed total lift coefficient is 
written under the Current Variable Data area. The Windows™ version also provides the 
graphics output file produced by the FORTRAN version. 
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The FORTRAN version of VLMLE provides for user input via a series of prompts 
to the screen. The program accepts and screens user input, and then processes the input in 
a botch mode. The screen and file output are produced immediately prior to termination 
of the executable. 

Upon execution of the Windows™ version of VLMLE, the main window is 
created. The values of the data input manually in the FORTRAN program are 
automatically initialized to selected default values. The user may elect to alter the default 
values for the number of pends or thickness to chord ratio by selecting Options|Geometry 
on the main menu and inter* ting with the Geometry dialog box. The user also may dect 
to alter the ideal lift coefficient or angle of attack by sdecting OptionsjParameters on the 
main menu and interacting with the Parameters dialog box. Figure 2-8 depicts the main 
window with the Parameters dialog box active. 



Figure 2-8. Windows™ VLMLE Parameters Dialog Box 
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After the input data has been altered, the output is calculated and displayed by 
selecting the Run option from the File pull down menu. Unlike VLL, the Windows™ 
version ofVLMLE does not perform the actual hydrodynamic calculations but rather 
writes an input file containing the parameters normally provided by the user in the terminal 
interactive mode. The Windows™ program then calls a modified FORTRAN version of 
VLMLE. The modified FORTRAN VLMLE executable reads the input data file written 
by the Windows™ program, performs the calculations, and writes the normal output file 
and an additional output file formatted for use by the Windows™ program. The 
FORTRAN executable also writes a dummy file immediately prior to termination. The 
purpose of the dummy file is to notify the Windows™ program that the hydrodynamic 
calculations are complete and that the necessary output has been generated. The 
Windows™ program periodically checks for the existence of the dummy file. When it is 
found to exist, the formatted output file is opened and the output is written to provide a 
view similar to figure 2-7. After this is accomplished, the program remains running, 
awaiting further input. The user may elect to further alter the input, terminate the 
program, print a copy of the screen output to the system printer, or view the on-line help 
available by using the Hdp pull down menu. 

The on-line help provided by the FORTRAN version ofVLMLE is limited, as in 
VLL, to that provided with the input prompts. The Windows™ version provides a 
general description of the program, specifics regarding the use of each item on the pull 
down menus, and information about the authors of the program. Figure 2-9 shows the 
VLL screen with the Optkms|Parameters hdp message box displayed. 
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Figure 2-9. Windows™ VLMLE with Help displayed 


The Windows™ version of VLMLE will run on any IBM compatible PC with 
Windows™ 3.1 or Windows™ 95. 
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3. PROPELLER DESIGN APPLICATIONS 


3.1 The MIT Propabor Lifting Line Program. 

The MIT Propulsor Lifting Line Program is a FORTRAN code that is used for the 
preliminary design of marine propulsors. It can be used in the design of propulsors with a 
relatively high degree of complexity. PLL can serve as the starting point of a "blank sheet 
of paper" design and can be used in conjunction with codes used to design blade shapes, 
to analyze cavitating propellers, and to analyze steady and unsteady propeller forces. 

PLL was selected for the second step in demonstrating the feasibility and 
desirability of the employment of personal computers in hydrofoil and propeller design for 
two reasons. First, the program is the starting point for propeller designs and can be used 
in conjunction with other codes that further refine the design. Second, the implementation 
of PLL in the Windows™ environment was estimated to be the most difficult step in the 
construction of and integrated propeller design software package. 

3.1.1 A brief description of PLL. 

The FORTRAN version of PLL is designed as an interactive program. The user is 
prompted for input data and may provide it in the form of keyboard input or prepared data 
files. The program also provides the capability of writing input files for later use based on 
the keyboard input provided. The three basic files used in a typical PLL run are the 
overall input file, the blade input file, and the wake input file. A pre-swirl stator 
circulation file may be used in a project which includes a non-axi symmetric pre-swirl 
stator. Figure 3-1 is a sample overall input file. 
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PROPELLER LIFTING LINE RUN. 1/31/1996 


OVERALL INPUT FILE 

50.300000.Ship speed (ft/tec) 

1.991000.Fluid Density 

10.000000.Shaft centerline depth (ft) 

1.Number of co mp on en ts 

N.No image hub to be used 

N.No image duct to be used 

N Component 1 is not a ringed propeller 

5.Number of blades on component 1 

10.000000.Diameter of component 1 (ft) 

sample.bld File containing Made inputs for comp. 1 

10.000000.Diameter of wake for component 1 (ft) 

samplel.wak File containing wake inputs for comp. 1 


Figure 3-1. Sample PLL Overall Input File 
The overall input file provides information regarding the ship operating conditions, the 
number and nature of the propulsor components, and the files that describe the blade and 
wake inputs Figure 3-1 is an overall input file for a single five bladed propeller with no 
ring or duct. 

A blade input file is shown in figure 3-2 below. 

PROPELLER LIFTING LINE RUN: SAMPLE RUN #1 00/00/94 

',«•****•***,**•***, blade INPUT FILE ******************** 

NUMBER OF RADII FOR INPUTS: 

11 

NONDIMENSIONSAL RADII FOR INPUTS: 

0.2000 0.2500 0.3000 0.4000 0.5000 0.6000 0.7000 0.8000 0.9000 0.9500 1.0000 
CHORD/DIAMETER AT EACH RADIUS: 

0.1740 0.1970 0.2290 0.2750 0.3120 0.3370 0.3470 0.3340 0.2800 0.1200 0.050 
THICKNESS/DIAMETER AT EACH RADIUS: 

0.0348 0.0329 0.0310 0.02710.0233 0.0194 0.0156 0.0117 0.0079 0.0060 0.0040 
2-D SECTIONAL DRAG COEFFICIENT AT EACH RADIUS: 

0.0080 0.0080 0.0080 0.0080 0.0080 0.0080 0.0080 0.0080 0.0080 0.0080 0.0080 
NONDIMENSIONAL CIRCULATION AT EACH RADIUS: 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

Figure 3-2. Sample PLL Blade Input File 


The blade input file provides non-dimensional information regarding the blade chord, 
thickness, two dimensional sectional drag coefficient, and circulation at a number of radii 
spanning the blade from hub to tip. 

A sample wake input file is shown in figure 3-3 below. 
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PROPELLER LIFTING LINE RUN: SAMPLE RUN #1 

WAKE INPUT FILE ********************* g 

NUMBER OF RADII FOR INPUTS: 

11 

NUMBER OF HARMONIC COEFFICIENTS (axial, radial, tangential): 

1 0 0 

NONDIMENSIONAL RADD FOR INPUTS: 

0.2000 0.2500 0.3000 0.4000 0.5000 0.6000 0.7000 0.8000 0.9000 0.9500 1.0000 g 

AXIAL COSINE HARMONIC COEFFICIENTS: 

0.4520 0.4530 0.4540 0.4760 0.5160 0.5870 0.6710 0.7570 0.8140 0.8350 0.8470 
AXIAL SINE COEFFICIENTS: 

0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 

Figure 3-3. Sample PLL Wake Input File g 


The wake input file provides a description of the inflow wake in terms of harmonic 
coefficients of the circumferentially varying inflow at a specified set of radii. 12 

After initial input is made in order to provide a description of the proposed blade, 
wake, and operating conditions, the user is allowed to review and alter the current PLL 
settings. The current settings include switches that determine whether PLL will optimize 
circulation and chord length, whether or not PLL will perform a wake alignment or 
compute the drag coefficient, and what circulation distribution will be used for ducts. 
Numerical values for number of panels, hub vortex radius, tip thickness, Lagrange 
multiplier, maximum lift coefficient, maximum thickness to chord ratio, and minimum root 
chord are also included in the current settings. 

When the user is satisfied with the settings, PLL proceeds with the hydrodynamic 
calculations, periodically prompting the user to make selections regarding the computation 
of the effective wake, tunnel operation, thrust estimates, torque ratios, and thrust 
distributions. When the hydrodynamic calculations are completed, the user may make 
selections from the PLL main menu. The user may choose to unload a component, try a 
different value of thrust or RPM, evaluate the effect of a non-axi symmetry stator, look at 
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output or plots, run optimization again with a different pitch distribution, try another 
thrust or RPM with a new effective wake, adjust chord length to match an expanded area 
ratio, perform a strength computation, reset blade input values with current blade outputs, 
review or alter the current settings, reoptimize with a new propeller diameter, determine 
optimum RPM or diameter, perform a blade stress computation, modify the thickness 
distribution, or exit the program. 

Output from the FORTRAN version of PLL includes text files that present 
summary and detailed data for each of the propulsor components, duct geometry data, 
velocity profiles far downstream of the propul sor, and files that describe the forces, 
velocity harmonics, and circulation distribution for non-axisymmetric stators. A file that 
compares axi symmetric and non-axi symmetric results is also provided. Plotted output is 
also available through the use of plot files with suitable graphics programs. Plotted data 
includes axial inflow velocity, advance angle, tangential inflow velocity, chord and 
thickness distributions, circulation distribution, axial and tangential induced velocity, 
hydrodynamic advance angle, and local thrust, torque, and lift coefficients. 

PLL is a capable and complex computer program. A detailed discussion of the 
program, including the theory behind the code, the input to the program, running the 
program, and output from the program is available in the MIT-PLL Propulsor Lifting Line 
Code User's Manual by William B. Coney. 

3.2 The MIT Propeller Blade Design Code. 

The third step in demonstrating the feasibility and desirability of the employment of 
personal computers in hydrofoil and propeller design is the integration of the MIT 
Propeller Blade Design Code as a part of the PLL Windows™ application. PBD is a 
vortex-lattice combined design and analysis code. It is capable of the design and analysis 
of multi-stage open and ducted propellers. The integrated Windows™ application 
provides a seamless link between PLL and PBD. 
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3J.1 A brief description of PBD, 

The FORTRAN version of PBD is designed to run in a batch mode. The user is 
required to provide three input files, four in the case of the coupled analysis mode. The 
three file types required are the B-spline control polygon file, the axi symmetric flow 
solution in the region of the propeller, and a main administrative file. The coupled analysis 
mode also uses a circumferential mean induced velocity file, usually produced by a 
previous PBD run. Figure 3-4 is a sample main administrative file. 


PBD14 TURBl.PBD 
tuibl.bcn 
rotor vd 
411 II 
2 


no hub, no duct 
OR TRY PBDOUT.BSN 
OR TRY restart, vd 
nbtadenkey, mkey 
ispn 


10 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 


37 383940 
0 0.000.0 
9100 
2 
0 

10.0010.0001 

10.02 

0.0085 

0.900 1.000 1.500 0.100 
0.0300 

0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 
0.02 0.02 0.02 0.020.02 0.02 0.020.02 0.02 
0. 0. 0. 0. 0. 0. 0. 0. 0. 

0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 

0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 

0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 0 . 


rmctrp 
ihub.hgap.iduc.dgap 
nx,ngcoeff, ml type.rn thick 
imode 
nwimax 

niter,tweak,bdge,radwgt,nufix 

npk*,hubshk 

Cdrag 

ADVCO XULT XFTNAL DTPROP 

Circ Corf. 

r/R 

t/d 

UA 

UAU 

UT 

UTU 


Figure 3-4. Sample PBD Administrative File 


The administrative file specifies the B-spline and velocity input files. It also specifies 
fineness of the vortex lattice, the mode in which the job is to be run, the thickness and 
circulation distributions, the maximum number of wake iterations, parameters related to 
iteration of the blade shape, the velocity field at the propeller and at the ultimate wake, 
and several other parameters. 

Figure 3-5 is a portion of a sample velocity file. 





TITLE - "PBD 10 VELOCITY INPUT* 
VARIABLES - XJLUA.UR.UT 
ZONE T»"Inflow", I- 3, J- 3, F-POINT 


-3.0000 0.2000 

1.0 

0.0000 

0.0000 

-1.3000 0.2000 

1.0 

0.0000 

0.0000 

0.0000 0.2000 

1.0 

0.0000 

0.0000 

1.3000 0.2000 

1.0 

0.0000 

0.0000 

3.0000 0.2000 

1.0 

0.0000 

0.0000 

-3.0000 0.3000 

1.0 

0.0000 

0.0000 

-1.3000 0.3000 

1.0 

0.0000 

0.0000 

0.0000 0.3000 

1.0 

0.0000 

0.0000 

1.3000 0.3000 

1.0 

0.0000 

0.0000 

3.0000 0.3000 

1.0 

0.0000 

0.0000 

-3.0000 0.7000 

1.0 

0.0000 

0.0000 

-1.3000 0.7000 

1.0 

0.0000 

0.0000 

0.0000 0.7000 

1.0 

0.0000 

0.0000 

1.3000 0.7000 

1.0 

0.0000 

0.0000 

3.0000 0.7000 

1.0 

0.0000 

0.0000 

-3.0000 0.9000 

1.0 

0.0000 

0.0000 

•1.3000 0.9000 

1.0 

0.0000 

0.0000 

0.0000 0.9000 

1.0 

0.0000 

0.0000 

1.3000 0.9000 

1.0 

0.0000 

0.0000 

3.0000 0.9000 

1.0 

0.0000 

0.0000 


Figure 3-5. Sample PBD Velocity Input File 
The velocity input file contains induced velocity data for at least four stations axially 
extending from upstream of the propeller to at least the axial position downstream where 
all flow quantities are constant. At least four radial positions must be specified. 

A portion of a sample B-spline control polygon file is shown below in Figure 3-6. 
ZONE IVB-cpUne polygon", I- 7 J° 7 F-POINT 


<0.08431 

0.18184 -0.08317 

0.19996 0.0 

0.0 

0.0 

-0.06695 

0.18723 -0.07201 

0.20062 0.0 

0.0 

0.0 

-0.01607 

0.19667 -0.04289 

0.20129 0.0 

0.0 

0.0 

0.03738 0.20073 -0.00762 0.20087 0.0 

0.0 

0.0 


0.13443 0.19920 0.02392 0.20063 0.0 

0.0 

0.0 



0.19327 0.19608 0.03901 0.19993 0.0 

0.0 

0.0 



0.21722 0.19302 0.04442 0.20001 0.0 

0.0 

0.0 



-0.06826 

0.43067 -0.19016 

0.47078 0.0 

0.0 

0.0 

-0.03337 

0.44320 -0.16389 

0.47253 0.0 

0.0 

0.0 

-0.00784 

0.46332 -0.09462 

0.47304 0.0 

0.0 

0.0 

0.06414 0.47301 -0.00013 0.47301 0.0 

0.0 

0.0 


0.13809 0.46331 0.09282 0.47271 0.0 

0.0 

0.0 



0.20626 0.44463 0.14939 0.46908 0.0 

0.0 

0.0 




Figure 3-6. Sample PBD B-spline Control Polygon File 



The file consists of an I by J matrix of B-spline control polygon vertices. The first three 
columns are the Cartesian coordinates of the points. The values in the fourth column are 
the distance from the centerline of the hub to the vertices. 

Figure 3-7 is a portion of a circumferential mean velocity file. The file contains the 
circumferential mean velocities induced on the blade by the circulation distribution and by 
the thickness. 


TITLE “ Circumferential Mean Blade Velocity" 
VARIABLES - "X\"Y\"Z","VX\"VY","VZ* 
ZONE T“"VELOCITIES", I- 240 


-0.16627 0.19145 -0.17308 

-0.15747 0.19914-0.16430 

-0.14289 0.21042 -0.14933 

•0.12291 0.22360-0.12818 

•0.09819 0.23685-0.10119 

•0.06963 0.24805-0.06911 

-0.03834 0.25520 -0.03319 

•0.00556 0.25722 0.00464 0 

0.02750 0.25389 0.04214 0.20134 0 
0.05973 0.24574 0.07704 0.18228 0 
0.08992 0.23411 0.10750 0.15785 0 
0.11675 0.22100 0.13256 0.12973 0 


0.11971 0.01132 -0.01241 
0.15086 0.01358 -0.02039 
0.176% 0.01462 -0.03066 
0.19689 0.01699-0.04406 
0.21032 0.02295 -0.06017 
0.21752 0.03327 -0.07725 
0.21893 0.04772 -0.09347 
.21387 0.06523 -0.10738 
.08416-0.11828 
.10291 -0.12651 
.12007 -0.13263 
.13351 -0.13566 


Figure3-7. Sample PBD Circumferential Mean Blade Velocity File 


The PBD FORTRAN executable prompts the user for name of the main 
administrative file. The program then reads the data in the administrative file and in the 


specified input files. Periodic status messages are printed to the monitor during the course 
of the hydrodynamic calculations. Program output is in the form of files formatted for 
plotting with a suitable graphics program. The files produced during a given run are a 
function of the mode selected for the run. The files are described below. 


PBDOUT.CBD- 

PBDOUT.CMF- 

PBDOUT.CMV- 


a graphic of the centeibody, or hub. 

the circumferential mean forces on the blade. 

the circumferential mean velocities induced on the blade. 


PBDOUT.GSP- 


PBDOUT.SOL- 

PBDOUT.IBG- 

PBDOUT.KTQ- 

PBDOUT.VCP- 


the bound circulation strength of each vortex segment versus radial 
and chord wise position (design modes only), 
the bound circulation strength of each vortex segment versus radial 
and chordwise position (analysis modes only), 
the input blade geometry as a Cartesian grid, 
a text file containing thrust and torque coefficients, 
the velocities at the blade control points. 

PBDOUT.OBG- the output blade geometry for all blades on the propeller, plus the 
wake of the key blade and the image hub and duct lattices, if 
applicable. 

the output B-spline control polygon. 

the radial circulation distribution at the trailing edge (design modes 
only). 

the radial circulation distribution at the trailing edge (analysis 
only). 


PBDOUT.BSN- 

PBDOUTRDC- 

PBDOUTSGR- 

modes 


Figure 3-8 shows the screen output for a sample PBD run. 
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PBD Propeller Blade Design tad Analysis Code 

Vtnkwao. 14.1.27 
Release Dale: Feb 011996 

Enter PBD Muter Input File Name... tuifa2.pbd 
TURB2.PBD 

teUte 

rotort.vei 

DESIGN MODE: 

Ilentioa 1 Max radius error in fitting blade to hub- 0.0001 
Iteration 1 Max radius error in fitting blade to tip* 0.0001 
Tine is BUNPT: 0 seconds 

Tune in BLADE: 0 seconds 
Time in INPLOT: 0 seconds 

Time in PBDTWK: 0 seconds 

Time in ZEROHS: 0 seconds 

Cresting CMV horseshoes based on IMODE... 

*•••••••• loot of 10 

2 oat of 10 
•••«*•••• 30010(10 

•«*••***• 4 oat of 10 
*•*•••**• somrflO 
6 oat of 10 
*•••••••• 7 out of 10 

***«**«•• tout of 10 
••••••••• 9 oat of 10 

•••»**»** 10 oat of 10 
Time in HSCMV: 0 seconds 

Time in SIGNCH: 0 seconds 

Tone in BSHAPE: 0 seconds 

Time in PBPLOT: 0 seconds 

BPORCE • No Navfcr Stokes woptiwg 

-CALCULATION OF THRUST AND TORQUE COEFFICIENTS- 

CD KT I0*KQ E/(l-W) 

0 0000 0J012 0.2SS1 1.000 

0.0045 0.19*3 0.3134 0*26 

Tune in BPORCE: 0 seconds 



PBD Version No. 14.1.27 
Release Dale: Feb 01 1996 


Figurc3-S. Sample PBD S cr e en Output 
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A detailed discussion of PBD, including the theory behind the code, the input to 
the program, running the program, and output from the program may be found in PBD- 
14.2: A Coupled Lifting-Surface Design/Analysis Code for Marine Propulsors by S.D. 
Black, D.E. Egnor, D P. Keenan, J.E. Kerwin, and T.E. Taylor. 13 

3J The Integrated PLL/PBD Windows™ application. 

The implementation ofPLL as a Windows™ application and the subsequent 
integration of PBD into the application were performed as distinct steps. The result will 
be presented in the final form for the purposes of this thesis. The term PLL from this 
point forward when referring to the Windows™ application will imply the integrated 
PLL/PBD application. 

The PLL Windows™ application is similar in appearance and operation to the 
applications described in sections 2.1 and 2.3. This is expected since one of the 
advantages of the Windows™ environment is that ail applications are similar in 
appearance and operation. The operation ofPLL is, however, much more complex than 
the first two applications. This also is expected, since the original FORTRAN versions 
differed significantly in complexity of operation. 

Figure 3-9 shows the PLL application as it appears upon starting the program. 
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Figure 3-9. Windows™ PLL 

Upon first inspection, three differences between PLL and the previous applications 
are immediately noticed. The PLL application has four windows displayed in the main 
window. This difference is due to the employment of the Multiple Document Interface 
(MDI) in PLL. In an MDI application, the main window is referred to as the frame 
window. The windows displayed inside the frame window are referred to as child 
windows or document windows. In the case of PLL, the document windows are the 
Blade, Wake, Plot, and Output Viewer windows. The purposes of these windows are as 


follows: 

Blade Viewer- 


Wake Viewer- 
Plot Viewer- 


to display the input blade file data, including ring data for ringed 

propulsors in a graphical format. 

to display the input wake data in a polar plot format. 

to display plotted output from the PLL and PBD FORTRAN 

executables. 


41 










< 


I 


I 


Output Viewer- to display text file output from the PLL and PBD FORTRAN 
executables. 

The second difference is the Window item on the main menu. This item is used to 
determine how the document windows will be displayed in the frame window. In PLL, 
unlike most MDI applications, the four document windows are created when program 
execution begins and remain in existence until program termination. Figure 3-9 shows the 
windows in a cascaded format. Figure 3-10 shows the windows in a tiled format with the 
focus set to the Output Viewer window and figure 3-11 shows the windows in the 
iconified state with the Window pull down menu activated and the focus set to the Wake 
Viewer window. 
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Figure 3-11. Windows™ PLL with Iconified Child Windows 
The Window pull down menu can be used to display the child windows in cascaded or 
tiled formats. When one or more of the windows are iconified, it may be used to arrange 
the icon(s) in the frame window. The Window pull down menu can also be used to set the 
focus on a specific window. 

The third difference that is noticed immediately is the vertical scroll bar in the 
Output Viewer window. The text files displayed in the Output Viewer window frequently 
exceed the vertical range of the window. The scroll bar allows the user to view the entire 
file, a portion at a time, by scrolling down the page. The user can also perform the 
scrolling function by using the Page Up, Page Down, Up Arrow, and Down Arrow keys 
on the keyboard. 


3.3.1 The Blade and Wake Viewer Windows. 

The next step the user must take if he or she wishes to perform a propulsor design 
is to open a project file. This is accomplished by selecting FilejOpen Project on the main 
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menu. The user specifies a project file using the Open dialog box. The program then 
reads overall input, blade input, and wake input files identical to those used by the original 
version ofPLL The Windows™ application is designed to read pre-existing PLL data 
files so that the user need not perform data manipulation in order to run old projects with 
the new software. 

It is important to note here that project files are not used in the FORTRAN version 
ofPLL. The project file replaces the initial terminal interactive input performed by user 
for the FORTRAN version, and also contains the information necessary to make settings 
analogous to the current settings for the FORTRAN version. 

When the file has been opened, the blade input and wake data may be viewed using 
the Blade and Wake Viewer windows. Figure 3-12 shows the Blade Viewer window after 
a project is opened. 
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Figure 3-12. Windows™ PLL Blade Viewer 
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The dale shown is for a ringed propeller. The plots are of non-dimensionalized chord and 
thickness distributions, viscous drag coefficient, and non-dimensionalized circulation 


distribution plotted versus non-dimensionalized radius in the case of the blade and non- 
dimensionalized angle in the case of the ring. Projects with a single non-ringed propeller 


display the blade information only. Projects with two components display the blade data 
for the first component on the left and the second component on the right. 


Figure 3-13 shows the Wake Viewer window after a project is opened. 



Figure 3-13. Windows™ PLL Wake Viewer 


The Wake Viewer window displays polar plots of the axial, radial and tangential i 

inflow wake velocity components for a range of radii. The values are non-dimensionalized 
with ship speed and are displayed such that port is left and starboard is right. The number 
displayed in the upper left comer of the individual plots is the value that corresponds to ft 

the black circle that bounds the plot. The number displayed in the lower right comer of 
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the individual plots is the value that corresponds to the center of the black circle. A 
legend is displayed in the lower left comer of the window. In the case of multiple 
component propulsors, the operator may switch between the wake plots for components 
one and two by double-clicking the left mouse button on the Wake Viewer window. This 
action has no effect if the open project is a single component project. 
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33.2 Edit Dialog Boxes. 

The next step the user will want to perform in the propulsor design process is to 
review and possibly alter the current program settings. This is accomplished for the most 
part through a set of dialog boxes. The dialog boxes may be called using the Edit pull 
down menu on the main menu. The Project Settings dialog box is called by selecting 
Edit|Project Settings from the main menu. The Multiple Component Project Settings 
dialog box is shown in Figure 3-14. 
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Figure 3-14. Windows™ PLL Multiple Component Project Settings Dialog Box 
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The user may use this dialog box to review and alter settings normally made as 
part of the terminal interactive input at the beginning of a PLL session. These settings 
include a run identifier, the name of the overall input file to be used, the RPM of each 
component, whether or not to compute the effective wake, the desired thrust, and the 
torque ratio between the two components. The user may also use this dialog box to align 
or not to align the wake during circulation optimization, to indicate that the propulsor is 
operating in a tunnel, and to manually specify a damping value. 

The user may also review and alter settings with the Default Settings dialog box. 
The Default Settings dialog box is called by selecting Edit|Default Settings from the main 
menu. The Multiple Component Default Settings dialog box is shown in Figure 3-15. 



Figure 3-15. Windows™ PLL Multiple Component Default Settings Dialog Box 


The Default Settings dialog box is roughly analogous to the Current Settings Menu from 
the original version of PLL. The user may review and alter the maximum lift coefficient. 















1 




the maximum thickness, the tip thickness the minimum root chord for each component, the 
Lagrange Multipliers used in solving for optimum load distributions the number of panels, 
the drag coefficient multiplier, the hub vortex radius, and the wake contraction ratio. The 
user may elect to align or not to align the wake, to optimize or not to optimize the 
circulation distribution, to optimize or not to optimize the chord length distribution, to 
compute or not to compute the drag coefficients, and to use the default wake contraction 
ratio or to manually specify a contraction ratio. 

The Duct Settings dialog box is called for projects with a duct by selecting 
Edrt|Duct Settings from the main menu. The Duct Settings dialog box is shown in Figure 
3-16. 



Figure 3-16. Windows™ PLL Duct Settings Dialog Box 
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The user may review and alter settings relating to duct calculations using the Duct 
Settings dialog box. The user may specify the duct tip gap factor and the ratio of 
propeller thrust to the sum of duct thrust and propeller thrust. The user may elect to use 
an a=0.8 mean line or a sinusoidal distribution of vorticity to specify duct circulation. The 
user may also elect to ignore duct ring vortex forces, or to ignore duct forces. The user 
may elect to manually specify a value for duct circulation. 

The user may wish to review and alter the settings used for the ABS Rules 
strength calculation. The ABS Rules Strength Settings dialog box may be called by 
making the Edit(ABS Strength Settings selection on the main menu. The ABS Rules 
Strength Settings dialog box is shown in Figure 3-17. 
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Figure 3-17. Windows™ PLL ABS Rules Strength Settings Dialog Box 
The ABS Rules Strength Settings dialog box may be used to select a fixed or controllable 
pitch propeller, to select the propeller material properties including ultimate tensile 
strength and specific weight, and to specify the rake at the hub and the tip. The user may 
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select a user defined material by specifying an ultimate tensile strength and specific weight 
for a material other than the five pre-defined materials. 

There are two dialog boxes that are used to specify settings that PLL uses to write 
input files for running the PBD portion of the program. The PBD Settings dialog box is 
used to make selections for parameters included in the PBD main administrative file. The 
PBD Skew/Rake Settings is used to specify the skew and rake values to be used when 
creating the B-spline input file. Figure 3-18 shows the PBD Settings dialog box. 
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Figure 3-1C. Windows™ PLL PBD Settings Dialog Box 
The PBD Settings dialog box may be used to select the mode in which PBD will be run, 
the blade grid spacing, the type of chordwise circulation distribution, the velocities that 
will be output in the PBDOUT.VCP file, the component for which the files will be written, 
a run title, an output filename root, the number of spanwise vortices across the chord, the 
number of trailing vortices, the maximum number of blade shape iterations, the sectional 
drag coefficient, the weighting for the blade smoothing equations, the index of the 
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constrained vertices, the ultimate wake starting point, the final wake point, and the non- 
dimensional time increment. 

The PBD Skew/Rake settings dialog box for the first component is shown in 
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Figure 3-19. Windows™ PLL PBD Skew/Rake Settings Dialog Box 
The PBD Skew/Rake settings dialog box is initialized with the current values of skew and 
rake at each of the radii used for blade input data. The default value is zero. The user 
may specify a value for each radii, or may specify a value for the smallest and largest radii 
and select a linear skew and/or rake distribution. The distribution is calculated after the 
dialog box is terminated. There are two separate PBD Skew/Rake Settings dialog boxes, 
one for the first component and one for the second component. 

When the user is satisfied with the PLL settings, he or she may save the project as 
a project file. This is done by selecting File|Save Project from the main menu and using 
the Save As dialog box. The current project file may be replaced, or the revised project 
may be saved under a new or previous project file name. 
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3.3.3 Raiaiag PLL. 

When the user has opened a project and made the desired settings using the edit 
dialog boxes, the user may then run the project by making the File|Run selection from the 
main menu. The program then allows the user to make additional settings using the 
Runtime dialog box. The Runtime dialog box is shown in Figure 3-20. 



Figure 3-20. Windows™ PLL Runtime Settings Dialog Box 

The user may select one of seven mutually exclusive settings from the OPTIONS area of 
the Runtime Settings dialog box. The options include optimizing propeller RPM, 
optimizing propeller diameter, maximizing thrust for a given torque and determining ship 
speed, evaluating a non-axisymmetric stator design, matching a value for expanded area 
ratio, unloading components, or none of the above options. If the user chooses to 
maximize thrust for a given torque and determine ship speed, horsepower and thrust 



coefficient must also be specified. A brief description of the runtime options is provided 
below. 

Optimize propeller RPM-after performing the hydrodynamics calculations for the 
"None" option, the program performs an iterative procedure to determine the optimum 
propeller RPM. The result is reported in a message box after termination of the 
FORTRAN executable. This optimization is not available for ducted or ringed propulsors. 
Figure 3-21 shows the Optimization Data dialog box. The Optimization Data dialog box 
is used for selecting the component to be optimized and for supplying a required thrust 
value. In the case of a contra-rotating propulsor, the dialog box is also used for supplying 
a torque ratio. 



Figure 3-21. Windows™ PLL Optimization Data Dialog Box 

Optimize propeller diameter-after per fo r mi ng the hydrodynamics calculations for 
the "None" option, the program p erforms an iterative procedure to determine the optimum 
propeller diameter. The result is reported in a message box after termination of the 











FORTRAN executable. This optimization is not available for ducted or ringed propuisors. 
The Optimization Data dialog box is also used for this option. 

Maximize thrust for a given torque and determine ship speed-after performing the 
hydrodynamics calculations for the "None" option, the program iterates to determine ship 
speed for a specified horsepower and thrust coefficient. 

Evaluate a non-axisymmetric stator design-this option allows the user to select a 
non-axisymmetric data file using the Select Stator File dialog box. The program performs 
the normal hydrodynamic calculations for the currently open pre-swirl stator project, then 
reperforms the calculations using the selected non-axisymmetric stator file. This causes 
additional text output data to be displayed with the usual output files. 

Match EAR-the match EAR option allows the user to specify an expanded area 
ratio to be matched using the Expanded Area Ratio dialog box. The single component 
Expanded Area Ratio dialog box is shown in figure 3-22. 
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Figure 3-22. Windows™ PLL Expanded Area Ratio Dialog Box 














PLL writes the expanded area ratio calculated on the most recent run of the current 
project and allows the user to specify a different value. PLL then performs the normal 
hydrodynamic calculations, scales the chord distribution to match the specified expanded 
area ratio, and reperforms the hydrodynamic calculations. 

Unload Components-if the component is hubless, ringless, and does not have a 
zero gap duct, this option allows the user to specify unloading by modifying the sine series 
coefficients that describe the blade circulation distribution. This is accomplished using the 
Glauert Coefficients dialog box. The single component Glauert Coefficients dialog box is 
shown below in figure 3-23. 
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Figure 3-23. Windows™ PLL Glauert Coefficients Dialog Box 


PLL initializes the dialog box with the sine series coefficients for the component 
circulation distribution for the most recent run of the current project. The user may 
specify changes to the coefficients as a fraction of the first coefficient. After the dialog box 
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is terminated PLL performs the normal hydrodynamic calculations, alters the circulation 
distribution as specified, and reperforms the hydrodynamic calculations. 

If there is an image hub, a ring, or a zero gap duct, the Steepness dialog box is 
initialized with hub and tip control point radii and circulation values. The user may select 
the exponent to be used to unload the hub and tip. Figure 3-24 shows the multiple 
component Steepness dialog box. 
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Figure 3-24. Windows™ PLL Steepness Dialog Box 


After the Steepness dialog box terminates, PLL calculates and displays, using the Unload 
Coefficients dialog box, the percent unloading that may be accomplished with the specified 
steepness exponent. The user may input the size of the coefficient to control the amount 
of unloading. The multiple component Unload Coefficients dialog box is shown in figure 
3-25. 
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Figure 3-25. Windows™ PLL Unload Coefficients Dialog Box 

The final two options available at run time are not mutually exclusive of each other 
or the options described above. The user may elect to have PLL write PBD B-spline input 
files in preparation for running the project using the PBD portion of the PLL Windows™ 
application. The user may also elect to reset the blade input values with current values 
determined by the previous PLL run. 

3.3.4 The Output and Plot Viewer Windows. 

The Windows™ PLL application uses the PLL FORTRAN executable to generate 
the same text output files that are created by the original version of PLL. In order to 
provide the user with an improved interface, PLL draws the output files to screen in the 
Output Viewer window. Figure 3-26 shows the Output Viewer window with a summary 
report displayed. 
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Figure 3-26. Windows™ PLL Output Viewer 

• 0 


The Output Viewer window may be used to view all of the text reports generated by PLL. 

The reports available depend on the type of project, and may include a summary report, 

• detailed reports for each component, the results of the blade stress and ABS Rules 9 


strength calculation, a duct geometry file, a file describing the velocities far downstream of 
the propulsor, and non-axisymmetric stator output files describing the circulation on each 
• blade, the forces on each blade, the velocity harmonics, and a comparison of axisymmetric » 

and non-axisymmetric results. 


The user may page through the results in a pre-defined order by double clicking 

• the left mouse button while the cursor is on the Output Viewer window. A vertical scroll 9 

bar is provided since some files are greater than one page in length. The user may also 

choose the text display color from four choices (blue, green, red, and black) by double 

• clicking the right mouse button while the cursor is on the Output Viewer window. p 
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The Windows™ PLL application also uses the PLL FORTRAN executable to 
generate a data file used to provide the same plots available from the original version of 
PLL. In order to provide further improvements in the user interface, PLL plots the output 
parameters versus non-dimensional radius in a series of four screens in the Plot Viewer 
window. Multiple component propulsor parameters may be displayed one component at a 
time or the two components may be displayed together. Figure 3-27 shows the Plot 
Viewer window with two components plotted together. 
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Figure 3-27. Windows™ PLL Plot Viewer 

The Plot viewer provides plots of a total of sixteen parameters. They are organized into 
four screens, or pages, as indicated below. 

Page 1- Chord Distribution Input, Chord Distribution Calculated, Undisturbed 
Pitch Angle, Induced Pitch Angle 
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Page 2- 


Effective Axial Inflow Velocity, Induced Axial Velocity, Tangential Inflow 
Velocity, Induced Tangential Velocity 
Page 3- Thickness Distribution Input, Drag Coefficient, Circulation Input, 
Circulation Calculated 

Page 4- Local Lift Coefficient, Local Torque Coefficient, Local Thrust Coefficient, 
Local Cavitation Number 

The user may page through the four screens in the pre-defined order by double 
clicking the left mouse button while the cursor is on the Plot Viewer window. The user 
may also shift between the first component plot, second component plot, and combined 
plot by double clicking the right mouse button while the cursor is on the Plot Viewer 
window. 

3.3.5 Additional Capabilities. 

The Windows™ PLL application provides a few capabilities in addition to those 
described above. Figure 3-28 shows the File pull down menu. 
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Figure 3-28. Windows™ PLL File Pull Down Menu 
In addition to the selections described previously, the user may also choose the FilejPrint 
PLL Plots, File|Print Output, or FilejWrite PLL Output File selections. 

The File|Print PLL Plots selection calls the Print dialog box to allow the user to 
select the plot screens to print and the number of copies. In the case of multiple 
component propulsors, all three available plots will be printed for each selected page. The 
File|Print Output selection calls the Print dialog box to allow the user to select the text 
output pages to print and the number of copies. The File|Write PLL Output File calls the 
Save As dialog box to allow the user to choose an output file name. After the dialog box 
terminates, tire program writes all of the output text files viewable in the Output Viewer 
into a single data file with the name selected by the user. 
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3.3.6 The MIT-PLL Help Program. 

The MIT-PLL Help program is a stand alone Windows™ application designed 
specifically to provide extensive on-line assistance to the PLL user. The program provides 
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help on a wide range of topics. Pull down menus are provided for the following general 
areas: 

PLL User’s Manual-the PLL user's manual tailored to fit the PLL Windows™ 
application provides information on the theory and operation of the FORTRAN 
executable. Figure 3-29 shows the MIT-PLL help program with the focus set to the PLL 
User's ManualjChapter 3: Optimum Load DistributionsJMuhi-Component 
PropellersjContra-Rotating Propellers selection. 



Figure 3-29. Windows™ MIT-PLL Help Program 
PBD User’s Manual-tbe PBD user's manual tailored to fit the PLL Windows™ 
application is also provided in an on-line format. The sub-headings provide information 
on the theory and operation of the FORTRAN executable. 

Main Menu-the selections from this pull down menu provide information on the 
operation of the PLL main menu selections. 





Features-the selections from this pull down menu provide information on the 
operation of the PLL viewer windows as well as general information on running PLL. 

Help-the selections from this pull down menu provide information about the 
operation of the help program. 

The MIT-PLL File menu allows the user to print the currently displayed topic or to 
exit the program Figure 3-30 shows the MIT-PLL Help program with the FeaturesjWake 
Viewer selection displayed. 
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Figure 3-30. Windows™ MIT-PLL Help Program with Help Displayed 


33.7 The MIT-PLL Editor Program. 

The MIT-PLL Editor program is a stand alone Windows™ application that is used 
to edit PLL blade, wake, overall input, and non-axisymmetric stator files. The program is 
started by selecting Edit|Blade/Wake from the PLL main menu. The user may open a PLL 
file for editing by selecting one of the four file types from the Open pull down menu. 









Figure 3-31 shows the MIT-PLL Editor program with the focus set to the Open|Blade 
selection and an open blade file. 
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Figure 3-31. MIT-PLL Editor 


PLL blade input files are displayed as a series of plots of parameters versus non- 
dimensional radius or angle, as appropriate. The user shifts between parameters by double 
clicking the left mouse button on the "Next Parameter" box on the screen. The user may 
alter parameter values by clicking the right mouse button on the graph at the desired 
value. The program then draws the data point with the nearest non-dimensional radius as 
a revised point at the indicated location. The user may add a new radius by double 
clicking the left mouse button on the "Add Radius" box. Figure 3-32 shows a blade chord 
plot with the record plot and a revised plot with reduced chord length. The Add Radius 
dialog box is shown with a new radius value entered. 
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Figure 3-32. MIT-PLL Edit Process 


When the user adds a new radius, it is added to the revised curve with a value interpolated 
between adjacent point values. When the user is satisfied with the revised curve, he or she 
may update the data by selecting File|Update Data from the main menu. If the user wishes 
to discard the current revised curve and return to the record data, he or she selects 
File|Reset Data from the main menu. 

The final step in the edit process is saving the revised file. The Save pull down 
menu offers the option of saving blade, wake, overall input, or non-axisymmetric stator 
files. These selections allow the user to overwrite the original file that was edited or to 
save the current data under a new filename. The MIT-PLL Editor program then writes a 
standard format PLL file, readable by either the Windows™ PLL application or the 
original version. 

The edit process for wake files is similar to that for blade files. Figure 3-33 shows 
the edit process in progress for a wake file. 
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Figure 3-33. MIT-PLL Wake File Edit Process 


4 PLL wake input files are displayed as a series of plots of sine and cosine harmonic 

coefficients versus non-dimensional radius for axial, radial, and tangential velocities. 
Editing is performed as described above. 

• Non-axisymmetrie stator files are displayed and edited differently than blade and 

wake files. Figure 3-34 shows a non-axisymmetric stator file in the edit process. 
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Figure 3-34. MIT-PLL Stator File E‘dit Process 
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Non-axisymmetric stator files are displayed in a polar plot format with the plot angle being 
the blade angle, zero at the top and proceeding counterclockwise. The magnitude of the 
point indicates the fraction of mean load for each blade. In order to change the location 
and/or loading of a blade, the user clicks and drags the point to the desired angle and 
loading using the right mouse button. The user may call a dialog box to add a new blade 
angle by double clicking the left mouse button on the "Add Blade" box. New blades are 
added at a load of 1.0. The mean values of the blade loadings for the revised and record 
plots are calculated and displayed in the plot legend. The process of updating, resetting, 
and writing revised stator files is the same as described above for blade files. 

Overall input files are displayed and edited differently than blade, wake, and stator 


files. Figure 3-25 shows the MIT-PLL editor program with an open overall input file. 
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Figure 3-35. MIT-PLL Input File Edit Process 


Overall input files are displayed in text format on the screen. Changes are made by 
making the Edit|Input Data selection from the main menu and using the dialog box 
provided. Figure 3-36 shows the Two Component - Ducted Input dialog box. 
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Figure 3-36. MIT-PLL Two Component - Ducted Input Dialog Box 


Revised overall input file data is saved by using the Save|Input selection from the main 
menu and using the Save As dialog box to replace the original file or to create a new file. 

The MIT-PLL Editor program Help pull down menu includes information on the 
program, presented in the form of message boxes. The File|Print selection may be used to 
make a hard copy of the current file. 


3.3.8 Running PBD. 

The user may elect to run the PBD portion of the Windows™ PLL application in 
two different ways. The first way is to cause the necessary B-spline file to be written by 
running the current project with the Write PBD files option selected in the PLL Runtime 
dialog box, and then selecting File|Run PBD from the main menu. This will allow the user 
to select the CURRPBD.PBD file, which is written by PLL with the settings in the PBD 
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Settings dialog box, using the Select PBD Admin File dialog box. The program then calls 
the PBD FORTRAN executable. 

The second way to run PBD is to select File|Run PBD from the main menu and 
then use the Select PBD Admin File dialog box to run a previously prepared project by 
selecting the appropriate main administrative file. The program is designed to be 
compatible with files written for the original FORTRAN version of PBD. This may be 
done without a PLL project being open or without first running the open project. 

Running PBD has no effect on the Blade and Wake Viewer windows, but PBD 
output is added to the data displayed in the Output and Plot Viewer windows. The data 
displayed in the Output Viewer window changes only by the addition of a screen with the 
PBDOUT.KTQ file. Figure 3-37 shows the Output Viewer window with the 
PBDOUT.KTQ file displayed. 
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Figure 3-37. MIT-PLL Output Viewer with PBD Output 
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After a PBD run, the Plot Viewer window displays a number of additional pages. 
The first is a diagram of the input blade B-spline control net and the resultant blade in the 
form of a wireframe diagram. The second additional page is a wireframe diagram of the 
output blade grid for each blade on the propulsor, the centerbody, the transition wake, and 
hub and duct images as applicable. The third page is a plot of the velocities at the blade 
control points. The next is a contour plot of the bound circulation strength. The fifth 
additional plot is a plot of the radial circulation distribution. The final additional page is a 
Circumferential Mean Velocity Plot. Figures 3-38 through 3-43 show each of the 
additional pages. 
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Figure 3-38. MIT-PLL Plot Viewer with PBD Input Blade 
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Figure 3-39. MIT-PLL Plot Viewer with PBD Output Blade and Centerbody 
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Figure 3-40. MIT-PLL Plot Viewer with PBD Control Point Velocity Plot 









BOUND CIRCULATION STRENGTH 


Discrete 


Vbrtvx Shoot 


Chord 00 3 1 

L 


0-0 6.2 


Figure 3-41. MIT-PLL Plot Viewer with PBD Bound Circulation Contour Plot 
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Figure 3-42. MIT-PLL Plot Viewer with PBD Radial Circulation Distribution Plot 
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Figure 3-43. MIT-PLL Plot Viewer with Circumferential Mean Velocity Plot 


The user may elect to view the PBD output in the Plot Viewer from a different 


orientation and/or in a different scale. This is accomplished by double clicking the right 
mouse button on the Plot Viewer window when a PBD plot is being displayed. Figure 3 
44 shows the PBD Plot Geometry dialog box. 
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Figure 3-44. MIT-PLL PBD Plot Geometry Dialog Box 

Figure 3-45 shows the result of altering the orientation and scale for the plot shown 
behind the dialog box in Figure 3-44 above. 
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4. CONCLUSIONS AND FURTHER WORK 
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4.1 CoUChufcMU. 

The stated purpose of this thesis was to demonstrate the feasibility and desirability 
of the employment of personal computers in hydrofoil and propeller design. The approach 
was incremental in nature, focusing first on relatively simple FORTRAN codes from the 
MIT Hydrofoils and Propellers course. The process proceeded through the design and 
implementation of an integrated application that provides a seamless link between PLL 
and PBD. 

The resulting applications are considered to have achieved the goal of 
demonstrating the feasibility and desirability of the employment of personal computers in 
hydrofoil and propeller design. The applications provide enhancements in the user 
interface, in terms of input, output, on-line help and portability as well as a reduction in 
the total time required in the design process. 

4.2 Further Work. 

Further work in this area can be grouped in three distinct areas. The first area is 
expansion of the PLL Windows™ application to provide the user with a more complete 
range of propeller design tools. The application could be expanded to provide seamless 
links to codes that analyze cavitating propellers, that perform steady and unsteady 
analyses, and that produce the inputs necessary for the computer aided manufacturing and 
inspection processes. 

The second area for further work involves improvements to the existing code 
without alteration to the appearance or operation of the program. The program as it 
exists is the product of an evolutionary development. Initial versions of the program did 
not include all of the capabilities of the final version. As a result, there are inconsistencies 
in the appearance of the code depending on the point in the process at which it was 
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written. Given unlimited time, it would be a straightforward task to revise the code in 
order to take advantage of the learning curve and make the code more uniform in its 
design and fester in its execution. This would result in improvements that are only 
cosmetic in nature and, as previously stated, would do little in terms of improving the 
usefulness of the program 

The third and final area for further work includes improvements to the PLL 
Windows™ application produced as a part of this thesis. Some of the possible 
improvements are listed below. 


-Incorporate graphical output specific to duct geometry and ring geometry into the 
plots available in the Plot Viewer window. 

-Incorporate graphical output for non-axisymmetric stator blade forces, wake 
velocities, and circulation distribution into the plots available in the Plot Viewer window. 

-Add the capability to display pre-existing PBD output files in the Plot Viewer 
window or a separate window that may be created and closed by the user during program 
execution. 

-Incorporate the MIT-PLL editor program into a window in the PLL program to 
allow the user to make blade, wake, stator, and overall input file changes more rapidly 
during the design process. 

•Incorporate a "tool bar" or "tool pallete" comprised of speed buttons to allow the 
user to quickly make common selections by clicking on a button displayed on the screen 
instead of using the main menu. 

-Redesign the MIT-PLL Help program as a standard Windows™ Help program 

-Incorporate a capability for the user to input circulation distributions directly as 
Giauert coefficients. 

-Redesign the dialog boxes in order to provide a more intuitive user interface. 

-Implement the application for the UNIX operating system 
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The implementation of any of these recommendations would provide tangible 


improvements to the software system presented in this thesis. 
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APPENDIX A 


Hydrofoil Vortex Lattice Lifting Line Program Code. 



APPENDIX A.1 


The VLL WinMain function. 
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A.1 The VLL WinMain function. 

The WinMain function is the main entry point for an application. The WinMain 
function for VLL is shown below. For the purposes of this thesis, code will be depicted in 
a smaller font to distinguish it from main body text. Note that all text that falls between an 
occurrence of 7*" and the next occurrence of"*/" is interpreted by the compiler as a 
comment. Also note that the text following an occurrence of 7/" on a given line is also 
interpreted by the compiler as a comment. 


I • 


* the WinMain function creates the main window 
******♦*************»****************»*****************************»*/ 

int PASCAL WinMain(HINSTANCE hlnstance, HINSTANCE hPrev Instance, 

LPSTR lpCmdParam, int nCmdShow) 

{ 

/♦******************************************************************* 

* variable declarations 

**#»«*«#*««*»**«****»***«******«*******«*****************************y 

char ProgName[ ] = "Hydrofoil Vortex Lifting Line"; //program name 


HWND hWnd; 
MSG msg; 


//handle to the main window 


//a Windows message structure 


//define and register the window class, if an instance of this application 
// is not already running 

if(!hPrevInstance){ 


WNDCLASS wndclass; 

wndclass. IpszClassName = 

wndclass. lpfnWndProc = 

wndcIass.cbClsExtra = 

wndclass,cbWndExtra = 

wndclass.hlnstance = 

wndclass.hicon 

wndclass. h Cursor = 

wndclass. hbrBackground 
wndclass.IpszMenuName = 

wndclass.style 

if(!RegisterClass(&wndclass))exit(0);; 

} 


ProgName; 

(WNDPROC) MainWndProc; 

0 ; 

0 ; 

hlnstance; 

LoadIcon(hInstance,”NEWICON”); 
LoadCursor(NULL, IDC ARROW); 
(HBRUSH) (COLORWINDOW +1); 
"Main_Menu"; 

CSVREDRAW | CS_HREDRAW; 


ghlnstance = hlnstance; 
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//create and display window of the wnddass 


hWnd = CreateWindow(ProgName, "Hydrofoil Vortex Lifting Line", 
WS OVERLAPPED WINDOW, 

CW~USEDEFAULT, CW USEDEFAULT, 
CW~USEDEFAULT, CWUSEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindowfbWnd, nCmdShow); 

UpdateWindow(hWnd); 

//while the window exists, receive and process Windows messages 

while (GetMessage(&tnsg, NULL, 0,0» 

{ 

TranslatcMcssagc(<femsg); 

DispatchMessage(Amsg); 

} 

return msg.wParam; 

} 


When viewed for the first time, and particularly without the benefit of experience 
with the C programming language, the logic and operation of a WinMain function is not 
intuitively obvious. For that reason an extensive explanation of this particular WinMain 
function is provided here. 

The function prototype for the WinMain function, shown here, indicates that the 
function returns an integer value and that the PASCAL calling convention is used. 


int PASCAL WinMain(HINSTANCE hlnstance, HINSTANCE hPrevInstance, 
LPSTR lpCmdParam, int nCmdShow) 


The integer returned is msg.wParam, which consists of information regarding the message 
processed by the WinMain function. The value returned, however, is not currently used 
by Windows™. The PASCAL calling convention is employed because of its efficiency in 
passing variables between functions. 

The WinMain function receives four parameters from Windows™. The first is the 
HINSTANCE hlnstance. This is a 16 bit handle to this instance of VLL. The 
hPrevInstance parameter is a handle to the most recent instance of VLL that is still 
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running. It will be NULL or 0 if there are no other instances running. The third 
parameter is a LPSTR, which is a 32 bit pointer to a character string. A pointer is a 
variable used to store a memory address. The nCmdShow parameter is an integer value 
that indicates how the program will be initially displayed. 

The first three lines of code in the WinMain function are declarations of automatic 
variables. An automatic variable is declared inside a function and is therefore private to 
that function. The variable only exists for the duration of the function call, and memory 
allocated for the variable is freed when the function returns. 

char ProgName[ ] * "Hydrofoil Vortex Lifting Line"; //program name 

HWND hWnd; //handle to the main window 

MSG msg; //a windows message structure 

The variables declared in this WinMain function are of three types. The first is an array of 
character (char) type data known as a string. The name of the variable is ProgName. As 
ProgName is declared it is also initialized with the value. Hydrofoil Vortex Lifting Line\0. 
The "\0 N is NULL string terminator. The compiler automatically determines the size of 
the array necessary to store the characters, including the string terminator. 

The second variable declared is of the HWND type. A HWND is a 16 bit handle 
to a window. The handle is used by Windows™ to identify the window created by this 
particular WinMain function. 

The third variable is a Windows™ message structure. The concept of object- 
oriented programming is that "objects" exist in the form of data structures and are 
operated on by various functions 14 . A message structure includes six separate pieces of 
information. The details of the message structure can best be seen by analyzing the 
declaration of the structure, shown here. 

14 Charks PctzoM, P rop «m n un g Window™ (Rafcnood, Washington: Microsoft Press, 19*8)p.l7. 
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typedef struct tagMSG { 

/* msg •/ 

HWND 

hwnd; 

UINT 

■»——f 

WPARAM 

wParam; 

LPARAM 

IParam; 

DWORD 

time; 

POINT 

Pt 

> MSG; 



The typedef keyword assigns MSG as the name of the structure defined in the 
statement. The window handle, hwnd, is the handle of the window that receives the 
message. The unsigned integer, message, is message number. The WPARAM, wParam, 
is a 16 bit signed parameter passed with the message. The LPARAM, IParam is a 32 bit 
signed parameter passed with the message. The DWORD, time is a 32 bit unsigned 
integer which specifies the time when the message was posted. The POINT, pt, is a point 
data structure that contains the integer position in screen coordinates of the cursor at the 
time the message was posted. 

The next step in initializing the program is to register a window class. If there is 
no previous instance of VLL running, then a window class is defined and registered. The 
window class is defined by filling in a WNDCLASS structure. The details of the window 
class structure are shown below. 


typedef struct tag WNDCLASS { /* wc */ 


UINT 

style; 

WNDPROC 

lpfhWndProc; 

int 

cbCIsExtra; 

int 

cbWndExtra; 

HINSTANCE 

hlnstance; 

HICON 

hlcon; 

HCURSOR 

hCursor, 

HBRUSH 

hbrBackground; 

LPCSTR 

IpszMenuName; 

LPCSTR 
} WNDCLASS; 

IpszClassName; 


The style is an unsigned integer that tells the Windows™ environment how to 
handle windows of this class. The IpfnWndProc parameter is a 32 bit pointer to the 










address of a function that will handle messages passed to the program. The cbClsExtra 
and cbWndExtra integers are amounts of extra bytes allocated for use by the programmer. 

The hlnstance handle informs Windows'™ which instance of the program owns the 
window class. The handles, hlcon, hCursor, and hbrBackground specify the specify the 
program icon, cursor, and client area background color of the windows created using this 
class. 

The IpszMenuName is a 32 bit pointer to a character string that indicates the name 
of the main menu to be used by the program. The IpszClassName is a pointer to a string 
that specifies the name of the class. 

The code below checks to see if there is a previous instance of VLL running using 
the ifi!hPrevlnstance) statement. If there is no previous instance, then the steps within the 
braces are executed. First, a WNDCLASS structure variable, wndclass is declared and 
initialized. It should be noted that a variable naming convention called Hungarian notation 
is used for the data contained in structures. This convention consists of using a relatively 
short prefix, the variable name, and a longer descriptive suffix to indicate the specific 
parameter of the structure. 

if(!hPrevInstance){ 

WNDCLASS wndclass; 

wndclass.lpszClassNainc = 

wndclass. IpfnWndProc 
wndclass.dbClsExtra = 

wndclass. cb W ndExtra 
wndclass. hlnstance 
wndclass. hlcon = 

wndclass. hCursor 

wndclass.hbrBackground = 

wndclass. IpszMenuName = 

wndclass. style = 

if(!RegisterClass(&wndclass))exit(0);; 

> 

The parameters of the window class are initialized with the values that follow: 


ProgName; 

(WNDPROQ MainWndProc; 

0 ; 

0 ; 

hlnstance; 

LoadIcon(hInstance,"NEW!CON"); 
LoadCursor(NULL. IDC ARROW); 
(HBRUSH) (COLOR_WINDOW + 1); 
"Main Menu"; 

CS VREDRAW | CS HREDRAW; 






ipszClas&Name 

address of the character array, Progname 

lpfiiWndProc 

address of the function MainWndProc 

cbCisExtra 

0 extra bytes 

cbWndExtra 

0 extra bytes 

hlnstance 

a handle to this instance of VLL 

hlcon 

the handle of the icon loaded by the Loadlcon statement 

hCursor 

the handle of the cursor loaded by the LoadCursor statement 

hbffiackground 

the handle to the brush currently set in the Windows™ Control 

Panel program 

IpszMenuName 

the name of the top level menu to be used 

style 

CSJVREDRAW | CS_HREDRAW are two window class styles, 

combined by the C logical "or" operator, that control the way 

WindowsTM redraws the application window 


After the window class structure is filled in the program registers the class using 
the RegisterClass function. The RegisterClass function receives a pointer to a 
WNDCLASS structure and returns an atom that uniquely identifies the class. An atom is 
a 16 bit integer handle that identifies a character string. If the RegisterClass function fails, 
the program is terminated by the exit statement. 

«*«• 

The ghlnstance = hlnstance; statement saves a copy of the handle to this instance 
of VLL in the global HINSTANCE variable, ghlnstance. The global variable will be used 
later in the program to create temporary windows called dialog boxes. 

The following code is used to create and display the window: 


hWnd - CreateWind(nv(ProgNaine, a Hydrafi>tl Vortex Lifting Line”, 
WS_OVERLAPPED WINDOW, 

CW USEDEFAULT, CW USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 









ShowWiadow(hWad, oCmdShow); 
UpdateWiadowChWad); 


The CreateWindow function takes 11 parameters and returns a handle to the 
window created. A description of the 11 parameters follows: 


LPCSTR 

LPCSTR 

DWORD 

int 

int 

int 

int 

HWND 

HMENU 


IpszClassName 

IpszWindowName 

dwStyle 

x 

y 

nWidth 

nHeight 

hwndParent 

hmenu 


HINSTANCE hinst 
void FAR *lpvParam 


pointer to the registered class name 
pointer to the window text 
window style 

horizontal position of window 

vertical position of window 

window width 

window height 

handle of parent window 

handle of menu or child-window identifier 

handle of application instance 

pointer to window-creation data 


The ShowWindow function receives two parameters, the handle of the window to 
be shown and the integer nCmdShow which defines how the window should initially be 
displayed. The function causes the specified window to be displayed on the screen in the 
specified manner. The UpdateWindow function takes the handle to the window and sends 
a WM PAINT message to cause the window client area to be painted. 

The last statements of the WinMain function are the message loop. The message 
loop receives messages from Windows™, translates them, and sends them to the window 
procedure for processing. 
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T ^-[-‘~ 1 M fiiiir(llinn); 

> 

return msg.wParam; 

The GetMessage function receives messages from the application message queue 
and fills in the MSG structure. The function returns "0" upon receipt of a WM QUIT 
message. The loop is then terminated and the program ends. 

Virtual key messages are translated by the TranslateMessage function. The 
DispatchMessage function sends messages to the window indicated by the msg.hwnd 
window handle. 

It is important to note here that the GetMessage, TranslateMessage, and 
DispatchMessage functions do not receive the message structure itself but the address of 
the message structure, &msg. The ampersand is the address operator. When followed by 
a variable name, it indicates the address of the variable. In the C programming language, 
functions may not operate on the arguments that are passed to them. Since the purposes 
of these functions include operating on the data contained in the message structure, the 
address of the structure must be passed. 
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The VLL MainWndProc function. 




A.2 The VLL MainWndProc function. 


The MainWndProc function is referred to as the window procedure. It is actually 
a callback function that uses a switch in processing and responding to Windows™ 
messages. The MainWndProc for VLL is shown below. 


the MainWndProc function handles input and window management 


LRESULT CALLBACK .export MainWndProc(HWND hWnd, UINT 
WPARAM wParam, LPARAM IParam) 


{ 


switch (message) 

{ 

caseWM COMMAND: 

{ 

//this case refers menu selections to the WMCommand Handler function 

return HANDLE_WM_COMMAND(hWnd, wParam, IParam, WMCommand.Handler); 


} 

caseWM CREATE: 

{ 


//this case initializes two global variables upon creation of the 
//main window 


HDC tempDC; 


//handle to a temporary device 
// context 


//get a handle to the screen device context 
tempDC = GetDC(hWnd); 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width = (float)GetDeviceCaps (tempDC, HORZRES); 
height = (float )GetDeviceCaps (tempDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
//output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width - height*(4.0/3.0); 


else 


height * width*(3.0/4.0); 




//release the handle to the device context 


ReleaseDC(hWnd.tempDC); 
return 0; 

} 

can WMPAINT: { 

//this case painting the screen 

HDC PaintDC; //handle to a device 

//context 

PAINTSTRUCT pa; //paint structure 

//prepare hWnd for painting and fill the paint structure, ps 
PaintDC * BeginPaint(hWnd, Aps); 

//paint the data box whenever the screen is repainted 

paim_dala_box(PaintDC); 

//paint the graphs if vortex has been run and the variable data has not 
// changed since vortex was run 

if(run_flag) 

paint_graphs(PaintDC); 

//mark the end of painting hWnd and return 0 
EndPaint(hWnd, Aps); 
return 0; 

} 

case WM DESTROY: { 

//this case handles requests to exit the program made by methods other than 
// the main menu 

//delete the temporary plot data file if it was created 
if[access(”plotdaLtmp", 0) —> 0) 
unlink("pkxdat.tmp"), 

PostQuitMessage(0); 


retun 0; 
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} 

return DefWiadowProc (hWnd, mewnr, wParam, IPuam); 

} 

The function prototype for the MainWndProc function is shown below. 

LRESULT CALLBACK _export is the return type of the function. It tells the compiler 
to add the code required to allow the Windows™ operating environment to call the 
function. The four parameters passed to the window procedure are the same as the first 
four parameters of a message structure. This is not surprising since the purpose of the 
MainWndProc function is to respond to messages. The window handle is passed because 
any given program can use a number of different windows. The unsigned integer specifies 
the type of message being passed. The information passed in wParam and IParam varies 
with the message type. 

LRESULT CALLBACK export MainWndProc(HWND hWnd, UTNT message, 

WPARAM wParam, LPARAM IParam) 

The next code encountered in the MainWndProc function is a switch. In C, a 
switch first evaluates the expression contained in the parentheses for an integral value. 

The program then branches to the case corresponding to the value of the expression and 
continues execution until a break statement or the end of the* switch is encountered. A 
default case may also be specified. Any value of the expression not corresponding to one 
of the other cases causes the default case to be executed. In the case where there is no 
default and no case is matched, the cases are skipped and execution continues with the 
code after the switch. 

In the case of the MainWndProc function, the expression evaluated is simply the 
unsigned integer indicating the message type, 
switch (message) 
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This switch responds to four cases, WM_COMMAND, WMCREATE, WM PAINT, 
and WM DESTROY, These cases are messages sent to the MainWndProc by the 
Windows™ environment. 

The WMCOMMAND message is sent when the user makes a menu selection 
using the mouse or an accelerator key. It can also be sent by a control in a dialog box 
owned by the main window. When the WM COMMAND message is received by the 
MainWndProc function, it refers the message to the WMCommand Handler function by 
calling the HANDLEWMCOMMAND macro. The HANDLEWMCOMMAND 
macro breaks messages down into a form that can be used by the WMCommand Handler 
function. The MainWndProc function also returns the value returned by the 
HANDLE WM COMMAND macro, indicating to the Windows™ environment if the 
message was handled. 

caseWM COMMAND: 

{ 

//this case refers menu selections to the WMCottunand_Handler function 

return HANDLE_WM_COMMAND(hWnd, wParam, IParam, WMCommand_Handler); 

} 


One of the most attractive features of the Windows™ environment is its device 
independence. In order to build device independence into the VLL application it is 
necessary to assess the capabilities of the output devices used by the program and tailor 
the output accordingly. 

The WM CREATE message is sent after a window is created but before it is 
displayed. The WM CREATE case is used to initialize the global variables width and 
height, which are used to scale the output that is drawn on the monitor. Note that global 
variables are variables that are made available to all of the functions in the program by 
declaring them external to any function definition. 


caseWM CREATE: 

{ 

//thk awe initializes two global variables upon creation of tbe 
// main window 

HDC tempDC; //handle to a temporary device 

II contact 

//get a handle to the acieen device context 
tempDC - GetDC/hWnd); 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width “ (float)GetDcviceCaps (tempDC, HORZRES); 
height - (float)GctDeviceCaps (tempDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/beight)>(4.0/3.0)) 

width - height*(4.0/3.0); 
else 

height - width*(3.0/4.0); 

//release the handle to the device context 
RekaseDC(hWnd,tempDC); 
return 0; 

> 

The first thing done in the WM_CREATE case is to declare tempDC as a handle 
to a device context. A device context is the link between a Windows™ application, a 
device driver, and an output device such as a monitor. The next statement uses the 
GetDC function to assign the value of the handle of the main window device context to 
tempDC. Once this is done, the case uses the GetDeviceCaps function to retrieve the 
width of the monitor display area in pixels (HORZRES) and the height of the monitor 
display area in raster lines (VERTRES). The integer values returned are cast as floating 




point values because the width and height variables are declared as global floating point 
variables. 

Most but not all device contexts have a horizontal to vertical aspect ratio of 
640/480, or 4/3. The screen and printer output functions written for VLL assume a 
display area size of640 pixels horizontally and 480 raster lines vertically and use the width 
and height values to scale the output to fit the device context. This prevents the output 
from being distorted in aspect ratio or scale when drawn on a device with a different 
aspect ratio or a different display resolution. The values of width and height are forced to 
the appropriate ratio by evaluating the aspect ratio of the device context and constraining 
the value of width to 4/3 of height if the aspect ratio is greater than 4/3, and constraining 
the value of height to 3/4 of width if the aspect ratio is less than 4/3. 

After using the device context, the program must release it so it may be used by 
other applications if necessary. This is accomplished by the ReleaseDC command. The 
final step of the case returns "0", indicating to the Windows™ environment that the 
message was handled by the MainWndProc function. 

The WM PAINT message is received when either the application or the 
Windows™ environment requests that all or part of the client area be redrawn. This could 
occur if the window were resized or if the data to be displayed changed. 

case WM PAINT. { 

//this case handles painting the screen 

HDC PaintDC; //handle to a device 

//context 

PAINTSTRUCT pc; //paint structure 

//prepare hWnd for painting and fill the paint structure, ps 

PaintDC ” BeginPaint(hWnd. ftps); 

//paint the data box whenever the screen is repainted 


paint_data_box(PaintDC); 






//paint the graphs if vortex has been run and the variable data has not 
//changed dace vortex was ran 

ifouajlag) 

paint jnphsfPtiatDC), 

//marie the end of painting hWnd and return 0 
Eadf*aint(hWnd, Apt); 
return 0; 

> 


The WM PAINT case declares two variables. The first is a handle to a device 
context, PaintDC in this case. The second is a paint structure, ps. A Windows™ paint 
structure is declared as follow: 


typedef struct ttgPAINTSTRUCT { f* ps */ 
HDC hdc, 

BOOL fEnsc; 

RECT rcPaint; 

BOOL {Restore , 

BOOL flncUpdate; 

BYTE rgbRjeservedI16]; 

} PAINTSTRUCT; 


The first parameter is a handle to a device context. The second parameter is a 16 bit 
boolean value indicating whether or not the background needs to be redrawn. The third 
parameter is a Windows™ rectangle structure that specifies the upper left and lower right 
comers of the rectangle to be painted. The remaining parameters of the PAINTSTRUCT 
are used internally by the Windows™ environment. 

A Windows™ rectangle structure is declared as follows: 


typedef (tract tagRECT { /* rc */ 
int left; 
iattop; 
int right; 
int bottom; 
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)RECT, 


The purpose of the left and top parameters is to specify the Cartesian coordinates of the 
upper left comer of the rectangle. The right and bottom parameters specify the 
coordinates of the ! er right comer. 


The WM .. <T case uses the BeginPaint function to prepare the main window 


for painting and to fill the paint structure with the data necessary for painting the window. 
The BeginPaint function receives the handle of the window to be painted and the address 
of the paint structure to be used and returns the handle of the device context. Once this is 
complete the case calls paintdatabox, a function written specifically for the VLL 
application to paint the current data selections on the screen. If the current data set has 
been processed by the part of the program that performs the actual hydrodynamic 
calculations, as indicated by the state of the integer variable run flag, the case also causes 
the graphs to be drawn. This is done by c* r '■t paint graphs function, another 
function written specifically for the VLL app Jen. 

After the painting is complete, the EndPaint function is called to mark the end of 
the painting process. The case then returns "0" to indicate *hat tfcs message was 
processed by the MainWndProc function. 

The final case in the switch is WM DESTROY, which is shown beiow. This case 
handles requests to terminate the program made by methods other than the main menu 


FilejExit selection. The access function is used to determine if the temporary plot data file. 


plotdat.tmp exists and deletes the file if it does exist. 


The access function receives a file name and an access code. The access code "0” 


causes the function to check for file existence and return "0" if the file does exist. The 


unlink function deletes the specified file. 


case WMJDESTROY: { 


//this case handles requests to exit the program made by methods other than 
//the main menu 




* 
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//delete the teaponiy plot data file if it was created 
ffltacccMCplotdaLtiBp*, 0) — 0) 

iulliBlr( *pW<to (Bp 1 ); 

PwtQuitMemgefO); 

return 0; 

> 

The WM DESTROY case then posts a message to the Windows™ environment 
requesting to terminate execution and returns "0”, indicating that the message was handled 
by the MainWndProc function. 

The last statement in the MainWndProc, shown below, refers messages not 
processed by one of the four cases in the switch to the default window procedure. The 
DefWindowProc function processes the message and returns a value which is then 
returned to the Windows™ environment. 

return DefWindowProc (hWad, message, wParam, IParam); 






APPENDIX A J 


The VLL WMCommand Headier function. 








A3 Tke VLL WMConsaaandHandler fuactloa. 

The WMCommand_Handler function provides the functionality of a main menu to 
a Windows™ program. The WMCommand Handkr function used by VLL is shown 
bdow. 


void WMCommand Handkr(HWND hWnd, int id, HWND hwndCtl, UINT codcNotify) 

{ 

DLGPROC dlgProc; //pointer to a dialog procedure 

//this switch handles the various main menu selections 

switch (id) 

{ 

case BDM RUN. { 

RECT temprect; //temporary rectangle structure 

// for specifying portion of 
// screen to redraw 


//if the user selects "Run", run the vortex program 
vortex(wnm); 

//set the run flag to 1 since vortex has been run 
runflag- 1; 

//cause appropriate sections of the screen to be repainted 

temprecttop - (int)(left_recttop*height/480.0); 
temprect. bottom = (int)(left_rectbottoin*beight/480.0); 
tcmprectleft -(int)(left_recLleft*width/640.0); 
temp rect.right -(intXleft_recLright*width/640.0); 

LnvalidateRect(hWnd, Atemprect, TRUE); 

temp recttop «(intXright_recttop*height/480.0); 
temp rect.bottom - (intXright_rectbottom*height/480.0); 
tcmp rectleft - (intXright_rectleft*width/640.0); 
temprect right = (intXright_rectright*width/640.0); 

InvalidateRect(hWnd, Atemp rect, TRUE); 

break; 

} 

case IDM PRINT: { 

//this case calls the prim dialog box 

PRINTDLG pd; //print dialog structure 

DOCTNFO di; //document information structure 

int j; //page counter 


//if a print request is made using the main menu and vortex has not been run. 
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// print a warning and deny the request 
if(lnm_lbg) 


MessagdBeep(MBICONEXCLAMATION); 
MwngtBox(hWnd. 'Must run program prior to printing.", 
"WARNING!’, MBJCONSTOP | MB_OK | MB_T ASKMOD AL); 
break; 


//otherwise, process the request 
//set all structure members to zero. 

memset(Apd, 0, HzeoffPRINTDLG)); 

di.cbSize * sizeof(DOCINFO); 
di.lpszDocName - "VLL"; 
di.lpszOutput ” NULL; 

//initialize the necessary PRINTDLG structure members. 

pd.lStructSize « sizeof^PRINTDLG); 
pdhwndOwner - hWnd; 

pd. Flags “ ro_RETURNDCJPD_HIDEPRINTTOFILE(PD_NOSELECnON; 

pdnFrotnPage -1; 

pd.nToPage “ 1; 

pdnMinPage • 1; 

pdnMaxPage = 1; 

if(PrintDlg(&pd)!-0){ 

StartDoc(pd.hDC,&di); 

for(j-0; j<pd.nCop*es, j++){ 

StartPage(pd.hDQ; 
paint_data_box(pd.hDC ); 
paint_graphs(pd.hDC); 

EndPage(pd.hD€); > 

EndDoc(pd.hDC); 

DelcteDCQxLhDC); 


break; 


if (pdhDevMode I s NULL) 

GlobalFree(pd.hDevMode); 
if (pl.hDevNaraes !* NULL) 

G!obalFree(pd.hDevNames); 


case IDM GEOMETRY: { 

//initialize tempelements 

temp_elements ” NUMBER_ELEMENTS; 
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/Alum case call* the geometry dialog box 

dlgProc * (DLGPROQMakeProcInstance((FARPROC)DlgProc, 
ghlnstance); 

Diak>gBox(ghlnstance, “GEOMETRY*, hWnd, dlgProc); 
FrccProcln*Unct((FARPROC)dlgPTOc); 



//if the number of dementi input by the user is outside the allowable, 

// print a warning, cause the screen to be repainted, and terminate the case 

if(temp dcments>40i|tcmp demeats<2) { 
MessageBeep(MBJCONEXCLAMATION); 

McssagcBoxfltWnd, "Number of E le m en t s must be between 2 and 40", 
"WARNING!", MBJCONSTOP | MBOK | MBTASKMODAL); 
InvalidateRect(hWnd, NULL, TRUE); 
break; 

) 

//if the number of elements input fay the user is inside the allowable, 

// use the value in tempelements 

NUMBERJELEMENTS * temp elements; 

II if constant vortex spacing is used, call the tip vortex dialog box 
if(spacing_flag) { 

AgainTipVortex. 

dlgProc m (DLGPROC)MakeProcInstance(fFARPROC)TTPDlgProc, 
ghlnstance); 

DiatogBoxCghlnstance, “TIPVORTEX", hWnd, dlgProc); 
FreeProcInstance((FARPROC)dlgProc); 

//if the tip vortex supplied by the user is close to the zero, print a 
//warning and reinitiate the dialog box 

if(tip vortex inset< 0 .00000 1 ){ 
MessageBeep(MB_ICONEXCLAMATION); 

MessageBox(hWnd, "Tip Vortex Inset/Pand Width must be > zero", 
"WARNING!", MBJCONSTOP | MBOK | MB_TASKMOD AL); 
goto Again Tip Vortex; 

} 

> 
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//cause the screen to be repainted if the dialog box was not canceled 
if(!runflag) 


break; 


lnvalidateRect(hWnd, NULL, TRUE); 

> 


* « 


case IDMCOEFFICIENTS: { 

//this case calls the codBcients dialog box ^ 

float sum ” 0.0; //used to sum the coefficients 

int q; II loop counter 

AgainCoefficients: 

dlgProc * (DLGPROC)MakeProcInstance((FARPROC)NextDIgProc, g 

ghlnstance); 

DialogiBoxCghlnstance, "COEFFICIENTS", hWnd, dlgProc); 

FreeProcInstance((FARPROC)dlgProc); 
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//sum op the absolute values of the giauert coefficient! input by the user 
lbf((rO;q<J;q++) 

sum +- fifcs(coeffideats(q]); 

//If the mm is dose to zero, print a warning and reinitiate the dialog box 
iHsumO.OOOOOOl) { 

MessageBox(hWnd, "At least one coefficient must be non-zero", 
"WARNING!*, MB JCONSTOP | MB_OK | MBTASKMODAL); 
goto Again Coefficients; 

> 

//cause the screen to be repai nted if the dialog box was not canceled 
ifttrun flag) 

~ InvalidateRect/hWnd, NULL, TRUE); 

break; 

> 

case EDM_EXIT: { 

//this case deletes the temporary file and terminates the program 

iRaccess("plotdatUnp", 0) = 0) 
unlink("plotdaLtmp"); 

PostQuitMessage(0); 

break; 

> 

case IDM_ ABOUT; { 

//this case calls the About dialog box 

dlgProc = (DLGPROC)MakeProcInstance((FARPROC)ABOUTDlgProc, 
ghlnstance); 

DialogBox(ghInstancc, "ABOUT", hWnd, dlgProc); 

FreeProcInstance((FARPROQdl gProc); 
break; 

} 

//the next several cases respond to the help section of the main menu 
case IDM HELPGENERAL: 

{ MessagcBox(h Wnd, "The Hydrofoil Vortex Lifting Line Program \ 
applies a vortex lattice method to the straight line lifting problem.\nVn\ 

It calculates and displays both the exact and numerical solutions for \ 
induced downwash velocity, total lift, and total induced drag for a \ 
circulation distribution described by up to 5 Glauert coefficients.\n\n\ 

It then solves the 'analysis' problem by calculating and displaying \ 
the numerical approximation for the circulation distribution based on \ 
the exact downwash velocity solution.", 

"HELP", MBICXJNINFORMATION | MBOK ); 

l-f— 

orauc, 

> 

case IDMHELPRUN: 

{ MessageBox(hWnd, "When ’FilejRun' is selected from the main \ 
menu, the program uses the Current Variable Data to calculate and display \ 






numerical and exact aohttioos for downwash velocity and aon-dimensional \ 
circulation, \n\n\ 

The lift, dng, and dng/lift aquared coefficients are also calculated \ 
and a table of the error in the calculat ion s is displayed, \n\n\ 

This selection also causes an ascii text file, 'output.dat\ to be written \ 
to the directory where the program is resident.". 

-HELP", MB ICONINFORMATION | MBOK); 
break; 


case IDMJHELPPRINT: 

( MemgeBox(hWnd, "When TilejPrinf is selected from the main \ 
menu, the program invokes standard Windows Prim and Prim Setup Dialog \ 
boxes to allow the user to prim the data that appears on the screen.-, 

•HELP", MB ICONINFORMATION | MB OK), 
break; 


case IDM HELPEXIT: 

{ MessageBox(hWnd, -When TilejExit' is selected from the main \ 
menu, the program is terminated.", 

-HELP", MBICONINFORMATION | MB_OK ); 
break; 


case IDM_HELPELEMENTS; 

{ Messag eBox(hWnd, "When 'Options|Geometry' is selected from the \ 
main menu, the user may select a Number of Elements to use.\n\n\ 

The Number of Elements, M, must be between 2 and 40, inclusive. For M \ 
elements there will be M+l free vortices.\n\n\ 

The default value for M is 40.", 

-HELP", MBICONINFORMATION | MBOK); 
break; 

} 

case IDM HELP VORTEXSPACING: 

{ MessageBox(hWnd, "When ’Options)Geometry 1 is selected from the \ 
main menu, the user may select either cosine or constant lattice spacing \ 
for the free vortices.\n\n\ 

Cosine spacing uses a transformation of the span wise coordinate, \ 
y ■ *{s/2)*cos(y~). It is the default spacing and also in general produces \ 
more accurate results.\n\n\ 

Constant pacing results in singularities at the tips and therefore \ 
requires the use of a non-zero tip vortex inset. The user is automatically \ 
prompted for a value for the ratio of tip vortex inset to panel width if \ 
the constant spacing option is selected.-, 

-HELP", MBICONINFORMATION | MBOK); 
break; 

> 

case IDMHELPCONTROLPTSPACING: 

{ McssagcBox(hWnd, "When Options]Geometry 1 is selected from the \ 
main menu, the user may select either cosine or midpoint spacing for the \ 
for the control points.\n\nMidpoint spacing interpolates between the \ 
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vortices and Cosine spacing uses a transformation of die spanwise \ 
coordinate, y - -(*/2)*co«(y~). Cosine spacing is the default spacing tod \ 
also in general produces sun accurate results.*, 

•HELP 1 , MBICONINFORMATION | MBOK ); 
break; 

> 


case IDM HELPTIPVORTEXINSET; 

{ MessageBox(bWnd, “When Constant control point spacing is selected \ 
in the Geometry Dialog Box, the user is automatically prompted for a value \ 
for the ratio of tip vortex inset to panel width.\n\n\ 

A positive, non-zero value is required. The default value is 0.25", 

"HELP", MBICONINFORMATION | MBOK); 
break; 

> 


case IDM HELPCOEFFICIENTS : 

{ MessageBox(hWnd, "When < Options)Coefficients' is selected from \ 
the main menu, the user may select values for the first 5 Glauert \ 
coefficients to describe the span wise circulation distribution.\n\n\ 

At least one of the coefficients must be non-zero. The default values are \ 
0.0 for all except al, for which 1.00 is the default value.", 

"HELP", MBICONINFORMATION | MBOK); 
break; 

} 


) 

) 

The function prototype for the WMCommandHandler function is shown below. 
The return type, void, indicates that no value is returned by the function. The first two 
parameters passed to the WMCommand Handler function are the handle of the main 
window and an integer variable, id, that describes the particular message being handled. 
The integer is used as the argument for the switch that refers the message to a number of 
different cases tor processing. The information passed in the other two parameters is not 
used in this program. 

void WMCommand Handler(HWND hWnd, int id, HWND hwndCtl, UINT codeNotify) 


Before the switch is employed, a 32 bit pointer to a dialog procedure 
(DLGPROC), dlgProc, is declared. It is used in the three switch cases that call dialog 
box procedures. 
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The first case in the switch is the IDMRUN case. The purpose of the IDMRUN 
case is to cause the current input data to be processed by the functions that perform the 
hydrodynamic calculations ami to cause the results to be written to the screen. 

IDM RUN is an unsigned integer value that corresponds to the File|Run selection on the 
VLL main menu. The main menu is defined in a Windows™ resource file, pll.rc. The 
definitions of identifiers such as IDM RUN are contained in a header file, pll h. Both of 
these files are listed in Appendix A.6. 


case IDM RUN: { 

RECT temprcet; //temporary rectangle structure 

// for specifying portion of 
II screen to redraw 

//if the user selects "Run", run the vortex program 
vortex(wnm); 

//set the run flag to 1 since vortex has been run 
ninflag = 1; 

//cause appropriate sections of the screen to be repainted 

tempreettop - (int)fleft_rect.top*height/480.0); 
temprect. bottom = (intXleft_rect.bottom*height/480.0); 
temprectleft = (intXleftrcct. left* width/540.0); 
temprect. right = (int)(left_rect.right*width/640.0); 

InvalidateRect(hWnd, Atemprect, TRUE); 

temprccUop = (intXright_recttop*height/480.0); 
temprcet. bottom = (intXright_rcctbottom*height/480.0); 
temprectleft = (intXright_rect.left*width/640.0); 
temprcct.right = (intXright_rect.right*width/640.0); 

InvalidateRectfhWnd, Atemprcct, TRUE); 

tweak; 

> 


The IDM RUN case declares a rectangle structure for use in specifying the sections of the 
screen to be repainted. It then processes the input data by calling the vortex function. 

The vortex function is basically a translation of the FORTRAN VLL code into C. It is 
included in Appendix A.6. 

The case then sets the run flag, indicating that the current set of input data has 
been processed. The rectangle structure, temp rect, is then set to values corresponding to 
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rectangles surrounding first the screen graphical output and then the prediction error table. 
The InvalideRect function receives the handle of the window to be repainted, the address 
of a rectangle indicating the portion of the screen to be redrawn, and a boolean value that 
indicates if the background is to be erased during repainting. This causes a WMPAINT 
message to be sent to the MainWndProc which causes the screen to be redrawn with the 
data calculated during the run. 

The next case handled in the switch is the IDMPRINT case. This case uses a 
Windows™ common dialog box to handle print requests made using the main menu. The 
IDM PRINT case is shown below. 


case IDM PRINT: { 

//this case calls the print dialog box 

PRINTDLG pd; //print dialog structure 

DOC INFO di, //document information structure 

int j; //page counter 

//if a print request is made using the main menu and vortex has not been run, 

// prim a warning and deny the request 
if (trun flag) 

{ 

MessagcBeep(MB_ICONEXCLAMATION); 

McssagcBox(hWnd, "Must run program prior to printing.", 

"WARNING!", MBJCONSTOP | MBOK | MBTASKMODAL); 
break; 

} 

//otherwise, process the request 
//set all structure members to zero. 

memset(£pd, 0, sizeof(PRINTDLG»; 


dicbSizc * sizeoflpOCINFO); 
di.lpszDocName = "VLL"; 
di.lpszOutput« NULL; 


//initialize the necessary PRINTDLG structure members. 

pdlStmctSize ■ sizeof(PRINTDLG); 
pd.bwndOwner = hWnd; 

pd.Flags - PD_RETURNDC(PD_HIDEPRINTTOFILE(PD_NOSELECnON; 
pd.nFromPage -1; 
pd.nToPage -1; 
pd.nMinPage -1; 
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pdnMaxPage ” 1; 
if (PrintDlg(Apd) !-0) { 

StartDoc(pd.hDC,&di); 


for(j-0; j<pd.nCopks; j++){ 


SUrtPage(pd.hDC); 
paint_data_box(pd.hDC); 
paint_graphs(pdhDQ; 
EndPage(pd.hDC); > 

EndDoc(pd.hDC); 

DekteDC(pd.hDC); 

> 

if (pdhDevModc != NULL) 

GlobalFree(pd.hDevMode); 
if (pdhDevNames != NULL) 

GlobalFree(pd.hDcvNaincs); 

break; 

} 


Three local variables are declared in the DDM PRINT case. The first is print 
dialog structure, pd. The print dialog structure is defined as follows: 


typedef struct tagPD { /* pd •/ 


DWORD 

IStnictSize; 

HWND 

bwndOwner, 

HGLOBAL 

hDevMode; 

HGLOBAL 

hDevNamer, 

HDC 

hDC; 

DWORD 

Flags; 

UINT 

nFromPage; 

UINT 

nToPage; 

UINT 

nMinPage; 

UINT 

nMaxPage; 

UINT 

nCopiec; 

HINSTANCE 

hlmtanrr, 

LPARAM 

lCustData; 

UINT 

(CALLBACK* lpfoPrintHookXHWND, UINT, WPARAM, LPARAM); 

UINT 

(CALLBACK* lpfnSctupHookXHWND, UINT, WPARAM, LPARAM); 

LPCSTR 

IpPrintTernplateNaiiK; 

LPCSTR 

lpSetupTenylatcNamc; 

HGLOBAL 

hPrintTempiatc; 

HGLOBAL 

hSetupTcmplatc; 

} PRINTDLG; 
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The print dialog structure is used to initialize the common Print dialog box. After the OK 
button on the dialog box is selected, information regarding user selections is returned in 
the structure. 

The second local variable is a document information structure, di. The document 
information structure is declared as follows: 

typedef struct { t* di •/ 

int cbSize; 

LPCSTR IpszDocName; 

LPCSTR IpszOutput, 

JDOCINFO; 

The document information structure is used to pass file name information to the StartDoc 
function. The cbSize parameter is the size of the structure itself in bytes. The 
IpszDocName is a pointer to a null-terminated string specifying the document name, in this 
case "VLL". The IpszOutput parameter points to a null-terminated string used to specify a 
file to which the output is redirected. Using the NULL value causes the output to go to 
the printer. The "print to file" capability is not implemented in VLL. The third local 
variable is an integer used as a counter for producing multiple copies of the output. 

The next block of code in the case checks the run flag. If the flag is not set, which 
indicates that the current set of input data has not been run, the user receives an audible 
and printed warning and the switch is terminated by the break statement. The warning is 
implemented using two functions. The first is the MessageBeep function, which receives 
an unsigned integer specifying a particular sound and then causes the sound to be played. 
The MessageBox function receives the handle to the parent window, a pointer to a null- 
terminated string that is printed as the warning, a pointer to a null-terminated string that is 
printed as the title of the box, and an unsigned integer indicating the style of the box. The 
style can consist of any number of compatible styles combined by C logical "or” operators. 
In this case the function uses three styles: 
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MBJCONSTOP 

MBOK 

MB TASKMODAL 


a stop sign appears in the box 

the box contains one push button, labeled OK 

the user must respond to the box before continuing work in 


the parent window 

Figure A-l shows the message displayed by this code. 


if (Iran flag) 

{ 

MenagcBccp(MB_ICONEXCLAMATK)N); 
MewagcBoxfliWnd, "Must ran program prior to printing.*, 
"WARNING!". MB ICONSTOP | MB OK | MB TASKMODAL); 
break; 

> 
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Figure A-l. Windows™ VLL with Error Warning Displayed 


After it has been determined that the current data set has been run, the print dialog and 
document information structures are initialized. The memset function sets all of the items 
in the print dialog structure, pd, to zero. The sizeof function receives an expression or 
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type Mid returns the size in bytes. The next three statements initialize the document 

information structure u described above. 

mcanet(Apd, 0, uzeoflFRINTDLG)); 

di.cbSize - sizeoAQDOCINFO); 
di.lpszDocNaine - "VLL"; 
di.lpczOutput“ NULL; 

//initialize the necessary PRINTDLG structure members. 

pdlStnictSize “ tizeo/(PRINTDLG); 
pdhwndOwner ” hWnd; 

pd. Flags - PD_RETURNDCtPD_HIDEPRINTTCXTLEjPD_NOSELECTION; 

pdnFrotnPage ” 1; 

pdnToPage ■ I; 

pd.nMinPage «1; 

pd.nMaxPage * 1; 

The last seven statements initialize the required parameters in the print dialog structure. 
The pd.Flags parameter specifies the way the common print dialog box is initialized. Any 
number of compatible flags may be used. In this case, the following are used . 

PD RETURNDC causes the PrintDlg function to return a handle to an 

appropriate device context in the pd.hDC field 
PD HIDEPRINTTOFILE hides and disables the Print to File check box in the common 

print dialog box 

PD_NOSELECTION disables the Selection radio button 
The other six statements are self-explanatory. 

The program is then ready to call the PrintDlg function. The PrintDlg function 
receives the address of a print dialog structure and returns a nonzero value if the function 
successfully configures the system printer and zero otherwise. In VLL, if the PrintDlg 
function is successful, the StartDoc function is used to Mart a print job using the printer 
device context and the address of the document information structure, 
if (PrintDlgC&pd) I s 0) { 

StartDoefpd.hDC.Adi); 
forO-O; j<pd.nCopier, j++){ 
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StaftPa(e(pd.hDQ; 
paiat_dttabox(pd hDC ); 
p«inf_grapha(pd.hDC); 
EndPafc(pd.hDQ; > 

EndDoc(pd.hDQ; 

DekteDQpdhDC); 

> 

if (pdhDevMode!- NULL) 

GkbalFree(pdhDevMode); 
if (pdbDevName*!- NULL) 

Gfct»lFree(pdhDevNaines); 

bieak; 

> 


The IDMPRINT case then uses a for loop to print the number of copies returned in the 
print dialog structure. In C, a for statement consists of three expressions enclosed in a set 
of parentheses, followed by a statement to be executed. The first expression, in this case 
j=0, is executed before the first iteration. The statement, in this case four statements 
enclosed in braces, is executed until the second expression becomes false. The third 
expression is executed after each iteration and is usually used to increment a counter. 

Note that in C, j++ increments j by the integer value 1. 

The StartPage and EndPage functions receive a handle to the printer device 
context and mark the start and end of each page. The VLL program uses the 
printjdatajbox and printjgraphs functions to draw the text and graphical data to the 
printer device context. The print_data_box and print jgraphs functions are described in 
Appendix A.5.3 and included in Appendix A.6. 

After the pages are drawn, the document is ended using the EndDoc function and 
the printer device context is deleted. The global memory objects, pdhDevMode and 
pd.hDevNames, are then Seed and the case is terminated. 








The third case is the IDM_GEOMETRY case. This case calls the Geometry 
dialog box function for the purpose of receiving user input regarding the pandization of 
the lifting line and the spacing of the control points and the vortices. 

The first thing done by the case is to initialize the value of a temporary storage 
location, tempelements, with the current value ofNUMBER ELEMENTS, the number 
of elements into which the lifting line is discretized. The next step is to make an instance 
of the Geometry dialog box procedure. This essentially places the function at a specific 
location in memory, and allows the function access to the data in the application. The 
procedure instance is made with the MakeProcInstance function, which receiver the 
address of a function and the handle to the application and returns the address of the 
function. The next step is to call the DialogBox function. The DialogBox function 
receives the handle of the application instance, the address of the dialog box template 
name, the handle of the owner window, and the address of the dialog procedure and 
creates a dialog box. The Geometry dialog box was is shown in Figure 2-4. Control is 
not returned to the application until the dialog box is terminated. Once the dialog box is 
terminated, the FreeProcInstance function is called to free the dialog box procedure. 

case rDM_GEOMETRY: { 

//Initialize tempelements 

tempelements « NUMBER_ELEMENTS; 

//this case calls the geometry dialog box 

dlgProc - (DLGPRCXT)MakeProcInstance((FARPRC)C)DlgProc, 
ghlastaace); 

PialogBoxfgMrutanoc, "GEOMETRY", hWnd, dlgProc); 

FreeProcI nstance((FARPROC)dlgProc); 

The case now checks the value input by the user, now located in temp elements, to make 
sure it is within the limits imposed by the program. If the value is outside the range from 
two to 40 inclusive, a warning is printed and the screen is redrawn. Note that the value 
NULL is passed instead of the address of a rectangle structure in the call to 
InvalidateRect. This causes the entire window to be redrawn. 
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//if the ««mhrr of elements input by the user is outside the allowable, 

// print a warning, cause the screen to be repainted, and terminate the case 


uitemp dcmems>4upanp dcmcnts xj \ 
Messn g eBct p(M B_ICQNEXQ -AM ATOTN); 

MesssgeBox(hWad, "Number of Elements must be between 2 and 40*. 
•WARNING!’, MB ICONSTOP | MB OK | MB TASKMODAL); 
InvalidateRectfhWnd, NULL, TRUE); 
break; 

> 


If the number of elements input by the user with the dialog box is within the allowable 
range, then the case uses the value. 

//if the number of elements input by the user is inside the allowable, 

//use the value in tempjekments 

NUMBERELEMENTS “ tempelements. 


The case then checks the type of vortex spacing specified by the user. If constant spacing 
is employed, the Tip Vortex dialog box procedure is called. This sequence is completely 
analogous with the sequence for the Geometry didog box, with the exception of the label, 
Again_Tip_Vortex. This label is used to cause the Tip Vortex didog box procedure to be 
called again if the user input is not acceptable 


//if constant vortex spacing is used, call the tip vortex dialog box 
iHspadng_flag) { 

AgainTipVortex: 

dlgProc - CDLGPRCXT)MakcProcInsUnce((FARPRCX!)TIPDlgProc, 
ghlnstanoe); 

Piak)gBox(ghInstance, ’iTPVORTEX’, hWnd, dlgProc); 
FreeProcInstance((FARPROC)dlgProc); 

//if the tip vortex supplied by the user is dose to the zero, print a 
// warning and reinitiate the dialog box 

if(tip vortex inset<0.000001){ 
MesmgeBcep(MB_ICONEXCLAMATION); 

MessageBox(hWnd, "Tip Vortex Inset/Panel Width must be > zero’, 
"WARNING!", MBJCONSTOP | MB_OK | MBTASKMODAL); 
goto Again Tip Vortex; 

> 

> 

//cause the screen to be repainted if the dialog box was not canceled 
if(1run_flag) 
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□ 


InvalidateRect/hWnd, NULL, TRUE); 




After the dialog box procedure returns and the procedure instance is freed, the tip 
vortex inset is checked. If the value is less than a very small positive number, a warning 
message is printed and the Tip Vortex dialog box procedure is called again. The screen is 
then repainted if the run flag was cleared in the Geometry dialog procedure. This 
effectively causes the screen, with the exception of the current variable data, to be cleared 
indicating that the current data has not been run. 

The next case is the IDM_COEFFICIENTS case. This case calls the Coefficients 
dialog procedure and inspects the input in a manner similar to the previous case. The 
IDM_COEFFICIENTS case declares two variables. The float variable, sum, is initialized 
to 0.0. It is used to sum the absolute values of the Glauert coefficients input by the user, 
in order to ensure that the at least one of the coefficients is non-zero. The integer, q, is 
used as a loop counter for this purpose. 


i • 


case IDM_COEFFICIENTS: { 

//this case calls the coefficients dialog box 
float sum - 0.0; 
int q; 


//used to sum the coefficients 
//loop counter 


AgainCoefficients: 

dlgProc ” (DLGPROC)MakeProcInstance((FARPROQNextDlgProc, 
ghlnstance); 

DialogBoxfghlnstance, "COEFFICIENTS", hWnd, dlgProc); 
FicdProc!nstance((FARra.OC)dlgProc); 

//sum up the absolute values of the glauert coefficients input by the user 

fbr(<nO;q<5;q++) 

sum +“ fabs(coefficients(q]); 

//if the sum is close to zero, print a warning and reinitiate the dialog box 
iflsunKO.OOOOOOl) { 

MessageBoxfhWnd, "At least one coefficient must be non-zero’, 
"WARNING!", MBJCONSTOP | MBOK | MBTASKMODAL); 
goto Agjun_Coefficients; 


the screen to be repainted if the dialog box was not canceled 
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ifllnia flag) 

“ IavalidateRect(hWnd, NULL, TRUE); 

btcak; 

} 

The Coefficients dialog procedure is provided with a label and called similarly to 
the Tip Vortex dialog procedure. After the dialog procedure returns, a for loop is used to 
sum the absolute values of the coefficients. The "+*" operator in the C programming 
language causes the value of the expression following the operator to be added to the 
value of the variable preceding the operator and the result to be stored in the variable 
preceding the operator. The and 7=" operators function similarly. If the sum 

of the absolute values of the coefficients indicates the case where all of the coefficients are 
zero, a warning is printed and the dialog procedure is called again. As in the case of the 
Geometry dialog box, if the run flag was cleared in the Coefficients dialog procedure, the 
screen is repainted. 

The IDMJEXIT case handles request to terminate the program made by the main 
menu File)Exit selection. It uses essentially the same code described in Appendix A.2 in 
the WM DESTROY case of the MainWndProc function. 


case IDM EXIT: { 

//this case deletes the temporary file and terminates the program 

iflaccessf plotdaLtmp", 0) — 0) 
unlink(*piotdat tmp“); 
PoctQuitMesage(0); 

break; 

> 


The IDM_ABOUT case calls the About dialog box procedure. This dialog 
procedure differs from those described previously in that it is not used to receive user 
input data. Figure A-2 shows the VLL About dialog box. 

case IDM_ ABOUT: { 
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//this case f *^** the About dialog box 

(flfpioc - (DLGPROQMakeProcInstance((FARPROC)ABOUTDlgProc, 
ghlnstance); 

DialogBox(ghInstanrr, "ABOUT", hWnd, dlgProc), 

Fred*rocInstaooe((FARPROC)dlfProc); 

break; 

> 
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Figure A-2. Windows™ VLL with About Dialog Box Displayed 


The next nine cases provide the on-line Help feature included with VLL. The nine 
cases are a series of MessageBox function calls that write descriptions of the operation of 
the main menu and the theory behind the vortex lattice method employed. The 
IDM HELPGENERAL case is shown below as an example. 


case BDM_HELPGENERAL: 

{ Mes*ageBox(hWnd, "The Hydrofoil Vortex Lifting Line Program \ 
applies a vortex lattice method to the straight line lifting proMem.\n\n\ 

It calculates sad displays both the exact and numerical solutions for \ 
induced downwash velocity, total lift, and total induced drag for a \ 
circulation distribution described by up to 5 Glauert coefficients.\n\n\ 

It then solves the 'analysis' problem by calculating and displaying \ 
the numerical approximation for the circulation distribution based on \ 
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APPENDIX A.4 


VLL Dialog functions. 



A.4 VLL Dialog functions. 

Dialog boxes are a convenient means for allowing the application user to provide 
input to the program. The use of a single dialog box requires that two functions be added 
to the functions described above. The first is a callback function, similar to the 
MainWndProc. In the case of the Geometry dialog box in VLL, this function is declared 
as follows: 

BOOL CALLBACK export DlgProc(HWND hDlg, UINT message, WPARAM wParam, 

LPARAM IParam); 


The purpose of the function is to initialize the data displayed in the dialog box when it is 
created, and to refer messages received by the dialog box to the second function. 

The second function is similar to the WMCommandHandler function, and for the 
VLL Geometry dialog box is declared as follows: 

void WMDlgCommand HandIer(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify); 

The purpose of this function is to handle messages received by the dialog box, specifically 
messages from the "OK" or "CANCEL" buttons. The functions used in VLL for the 
Geometry dialog box will be described here. The functions used for the Coefficients, Tip 
Vortex Inset, and About dialog boxes are extremely similar and should be self-explanatory 
when the two functions described here are understood. 

The callback function is listed below: 


BOOL CALLBACK export DIgProc(HWND hDlg, UINT message, WPARAM wParam, 

LPARAM IParam) 

{ 

char input( 10] ” //character string for writing output 

switch(message) 

{ 


case WMINITDIALOG: { 
//initialize numerical and state dialog controls 






* 




iffspacingjlag) 

CbeckRadioButton (hDlg, IDM COSINE, IDM CONSTANT. 
IDM_CONSTANT); 


















CbeckRadioButton (hDlg. IDM COSINE, IDM CONSTANT, 

IDM.COSINE); 

if(controlpt_flag) 

CbeckRadioButton (hDlg,IDM COSINECONTROL, 

IDM_MIDP6lNT, IDM_MIDPOINT); 
else 

CbeckRadioButton (hDlg,IDM COSINECONTROL, 

IDMMIDPOrNT, IDMCOSINECONTROL); 

itoa(NUMBER_ELEMENTS, input, 10); 
SetDlgItemText(hDlg,IDMNUMOFELEMENTS,input); 

return TRUE; 

> 

case WM COMMAND: { 

return (BOOL)HANDLEWM_COMMAND(hDlg, wParam, IParam, 
WMDlgCommandHandler); 

} 

} 

return FALSE; 

} 

A cursory inspection of the callback function reveals that the function consists essentially 
of a switch that handles two cases. Prior to the switch a character array, input, is declared 
for the purpose of writing text data to the dialog controls. There are ten types of dialog 
controls, only two of which are dealt with by the DlgProc function. 

A dialog box may have up to 2SS controls, selected from the below listed types: 
Pushbuttons the type used for "OK" and "CANCEL" buttons 
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Radio Buttons 
Check Boxes 
Static Text Fields 
Group Boxes 
Listboxes 
Edit Boxes 


used to select an option from a group of mutually exclusive options 

used to select or deselect options which can be toggled on and off 

used to provide labels or instructions 

allows grouping of a set of other controls 

used for selecting an option, such as a file name from a list 

allow the user to input text 


Scroll Bars used to input a linear value 

Icons used to provide visual input 

Combination Boxes a combination of an edit box and a list box 

The VLL program makes use of the pushbutton, radio button, group box, static text field, 

and edit box types. 

Controls that are used to display variable data and to receive user input are 
assigned identifiers in order to make the program code more easily understood. The 
appearance and operation of the dialog box is defined in a resource file that is part of the 
application. The four dialog resource templates and the main menu used in VLL are 
defined in the vll.rc file. The block of code used to define the VLL Geometry dialog box 
is shown below. The entire vll.rc file is contained in Appendix A.6. 


GEOMETRY DIALOG 11,35, 175, 137 

STYLE DS_MODALFRAME | WS.POPUP | WS CAPTION 

CAPTION "Geometry* 

BEGIN 

CONTROL ”, IDM NUMOFELEMENTS, "EDIT, ES LEFT | WS.CHILD | WS_VISIBLE | 
WS BORDER | WS TABSTOP, 66,87,34,15 

CONTROL "Cosine", IDM COSINE, "BUTTON", BS AUTORADIOBUTTON | WS CHILD | 
WS VISIBLE) WS GROUP I WS TABSTOP, 10, 20, 38, 13 

CONTROL "Constant", IDM CONSTANT, "BUTTON", BS AUTORADIOBUTTON | 

WS CHILD | WS VISIBLE | WS TABSTOP, 10,39,40,14 

CONTROL "Cosine", IDM COSINECONTROL, "BUTTON", BS AUTORADIOBUTTON | 
WS CHILD | WS VISIBLE | WS GROUP | WS TABSTOP, 95,20,38,13~ 

CONTROL "Mid-Point", IDM MIDPOINT, "BUTTON", BS AUTORADIOBUTTON | 

WS CHILD | WS VISIBLE | WS TABSTOP, 95, 39,45, 14 

PUSHBUTTON "OK", IDM OKGEOM, 31,109,36,15, WS CHILD | WS VISIBLE | 

WS TABSTOP 

PUSHBUTTON "CANCEL", IDM CANCELGEOM, 100, 109,36, 15, WS CHILD | 

WS VISIBLE | WS TABSTOP 


125 









CONTROL "Lattice Spacing", -1, "STATIC", SSLEFT | WS_CHILD | WS.VISIBLE, 10,7,61, 
9 

LTEXT "Number of elements 40 Max", >1,52,63,67, 17 

CONTROL "Control Point Spacing", -1. "STATIC", SS LEFT | WS CHILD | WS VISIBLE, 
95,7.71,9 

CONTROL "", .1, "static", SS BLACXFRAME | WS CHILD) WS VISIBLE, 5,4,61.51 

CONTROL *", -1, "static", SS BLACXFRAME | WS CHILD | WS VISIBLE, 91.4,77, 51 

CONTROL "", -l. "static", SS BLACXFRAME | WS CHILD | WS VISIBLE, 44,60,83,45 

END 

The first line of code defines the name, size, and screen position of the dialog 
resource. The second line describes the style of the dialog box and third line defines the 
caption displayed on the title bar. 

After the BEGIN statement, the individual controls are defined. The edit box that 
displays and allows the user to alter the number of elements used in the program, for 
example, is the first control described. It is defined as a dialog control of the edit box 
type. The pair of double quotes indicates that there is no automatic initialization of the 
value of the box. IDM NUMOFELEMENTS is an identifier used to refer to the control 
in order to make the source code more readable. The flags that are joined together with 
the logical "or" operators indicate how the control is to be drawn and processed by the 
Windows™ environment. The last four numbers describe the location of the control in the 
dialog box. 

Dialog boxes may be constructed using a standard text editor, or using a graphical 
development environment such as the BORLAND® Resource Workshop™. Figure A-3 
shows the VLL Geometry dialog box in the BORLAND® Resource Workshop™ 
graphical development environment. The point and click capability of a graphical 
environment makes the design and testing of dialog boxes fast and easy compared to the 
alternative of defining them using a text editor and recompiling the application for each 
test. 
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Figure A-3. VLL Geometry Dialog Box in BORLAND® Resource Workshop™ 


The WMINITDIALOG case in this function evaluates the spacing flag and the 
control point flag and checks the appropriate radio button using the CheckRadioButton 
function. The CheckRadioButton function receives the handle of the dialog box, the 
identifier of the first and last button in the group, and the identifier of the button that is to 
be checked. It checks the button indicated and removes the check from the other buttons 


in the group. The CheckRadioButton function does not return a value. 

The WM INITDIALOG case also initializes the edit control that indicates the 


number of elements into which the lifting line is discretized. This is done in two steps. 
First the current value of NUMBERELEMENTS is written as a character string into the 
input variable array using the itoa function. The itoa function receives an integer value, 
the address of a character array, and the base to be used in converting the integer, and 
writes the integer value into the character string. In the second step, the SetDlgltemText 
























function is used to write the character string in the input array into the edit control 
indicated by IDM NUMOFELEMENT S and contained in the dialog box indicated by 
hDIg. The case then returns the boolean value TRUE because the message was handled 
by the function. 

The WM COMMAND case refers messages to the WMDlgCommand_HandIer 
using the HANDLE_WM_COMMAND macro and returns the value returned by the 
macro, indicating if the message was handled. If the message received by the callback 
command does not correspond to either case in the switch, then the boolean value FALSE 
is returned. 

The second function used to handle the VLL Geometry dialog box, the 
WMCommand Handler function, is shown below: 

void WMDlgCommandHandlcr(HWND hDIg, int id, HWND hwndCti, UINT codeNotify) 

{ 

char input(10] ” //character string for receiving 

input 

switched) 

{ 

case IDM OKGEOM: { 

HWND hCtrl; //handle to a dialog control 

DWORD result; //result of an interrogation of 

// a dialog button 

//get the state of the radio buttons and set the spacing and control point flags accordingly 

hCtrl = GetDlgltemfhDIg, IDM_CONSTANT); 
result “ SendMessagefhCtrl, BMGETCHECK, 0,0L); 

i 

if (result) spacing_flag “ 1; 

else spadng_flag - 0; 


hCtrl - GetDlgltemfhDlg, IDM_MIDPOINT); 
result * SendMessage(hCtrl, BM GETCHECK, 0, OL); 

if (result) controlpt_flag • 1; 

else control ptflag - 0; 
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//gat the antor at dements input and More h in a temporary location 

GetDlgItemText(hDtg. IDMNUMOFELEMENTS, input, 10); 
teaip_eiesnents - atoi(input); 

//dear the nut-flag to indicate that the user input data has changed 
ninfUg-O; 

//drop through to the processing for the CANCEL cate 

> 

case EDM_CANCELGEOM: { 

//end the dialog 

EndDialog(hDlg. 0); 
break; 

} 

> 

> 

The WMDlgCommand_Handler function, like the DlgProc function, is essentially a 
switch that handles two cases. Also like the DlgProc function, prior to the switch a 
character array, input, is declared. In this procedure the array is used for the purpose of 
retrieving information from the dialog controls. 

The IDM_OKGEOM case responds to the message sent when the user selects the 
"OK" button in the dialog box. A handle to a window, hCtrl and a DWORD, result are 
declared as local variables in this case. The case first uses the GetDlgltem function to get 
a handle first to the Constant Vortex spacing radio button. It then uses the SendMessage 
function to check the state of that button. 

The GetDlgltem function receives a handle to a dialog box and the identifier of a 
control in that box and returns a handle to the control. The SendMessage function 
receives a handle to a dialog box control, a message identifier, and two additional message 
dependent hems. In this case the message that is sent is a BM_GETCHECK message, the 
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two additional items are not used. The return values for the function when the message is 
BM_GETCHECK are the integer 1 if the button is checked and 0 if it is not checked. 

The case sets the value of the spacing flag and then repeats the process for the 
control point spacing flag. The IDMjOKGEOM case then uses the GetDlgltemText 
function to copy the value in the Number of Elements edit box control into the input 
character array. The aioi function converts the ascii string pointed to by its argument to 
an integer value and returns that value. 

The next statement clears the run flag on the assumption that some or all of the 
data handled by the Geometry has changed. Since there is no break statement in the 
IDM_OKGEOM case, program execution continues into the DDM CANCELGEOM case 
and the dialog box is terminated by the EndDialog function. If the user selects the 
"CANCEL" button on the dialog box, the IDM CANCELGEOM case is executed and the 
dialog box is terminated without changing either of the spacing flags, the number of 
elements, or the run flag. 

Functions for initializing and retrieving the data from the Coefficients, Tip Vortex 
Inset, and About dialog boxes are completely analagous to the functions described above. 
The functions are part of the VLL program in the vll.c file, and listings can be found in 
Appendix A.6. 
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APPENDIX A.5 


The VLL Output functions. 




A.5 The VLL Output findiou. 

The VLL program uses four separate functions to provide output. Two provide 
output to the monitor and two provide output to the system printer. Each (Mir consists of 
a function that draws the current variable data and a function that draws the graphs and 
table. The functions are described bdow. 
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A.5.1 The VLL paint_data_box fraction. 

The VLL paintdatabox function receives a handle to the monitor device context 
and draws the current variable data to the screen. A device context can be thought of as a 
structure that contains information about the output device and how text, lines, or regions 
are drawn on the output device. Output to a particular device is accomplished by a series 
of GDI function calls. The best way to gain an understanding of the GDI and device 
contexts is to closely inspect the functions that perform the output for VLL. The 
paint data box function will be the first to be considered, and is shown below. 


,*«*««#«*«*•«**«*«**«*•#«****#*»***#*«»*«*«**«•••••***•*•»»#*»*,,**•* 

* the paint databox function draws current variable data to the passed device context * 

void paint data box(HDC PaintDQ 
{ 

/»***•**•*•**•**••***»«*•••*•••*•*•*»••***«*•*«•»*»*••**•*••*•••**•• 

* declare variables that are defined in the vll.c file and that will be used in this function * 
*****•***•*•*******•************************************************/ 
extern int controlptflag, spacingjlag, NUMBER ELEMENTS; 

extern float tip_vortex_inset, coefficients!], width, height; 

/I**************#****#**#***#******#*************'******************** 

* Variable declarations * 


char 

buffer! 120]; 

//buffer for character output 

int 

i. 

//loop counter 


length; 

//length of character output 

HFONT 

hFont, 

//handle to the default font 


hCHdFont; 

//handle to the original font 
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//get a handle to the device default fiat 

hFoat “ GetStockFoot(PEVlCE_DEFAULT_FWr); 


! 

\ 

H 


//■elect the device default fiat 


f 

i 

@ 


hOidFoot * SdectFoot/PaintDC, hFoat); 


i 

i 

$ 


//endoae the current vaiiable data box in a pair of rectangles 


j 

i 


Rectangle(PaintDC,(intX 1 0*width/MO.O),(intXO.O* height/480.0), 
(intX230.0*width/640.0X(intX25.0*hejght/480.0)); 


t 

<{ 


Rectanglc(PaintDC,(intX 1.0*wkhh/640.0),(intX25.0*height/480.0), 
(intX250.0*width/640.dX(int)(230.0*height/480.0)); 


1 

1 


//label the box 





length - sprintffbuflfer, "CURRENT VARIABLE DATA"); 





TextOut(PaintDC,(intX39.0*width/640.0), 

(intXS.0*height/480.0), 
buffer, length); 


4 

i 

s 


//write the variable data 


V 



length “ sprintffbuflfer, "Number of Elements: %d",NUMBER_ELEMENTS); 


i 

i • 


TextOut(PaintDC, (intX10.0*width/640.0), 

(intX30.0*height/480.0), 
buffer, length); 


'> 

£ 


//write the tip vortex inset if applicable 


i 



if[spacing_flag) { 



* » 


length - sprintffbuffer, "Tip vortex inset/ *); 





TextOut(PaintDC, (intX10.0*width/640.0), 

(intX90.0*height/480.0), 
buffer, length); 


1 

» 


length * sprintffbuffer," panel width: %5.4f, 
tip_vortex_inset); 


t. 

i 

i 

k 


TextOutCPaintDC, (intX10.0*width/640.0), 

(intX110.0*height/480.0), 
buffer, length); 


f 

it 

'it 

if. 


length ■ sprintflbuflfer, "Vortex Spacing: Constant"); 

} 

else 

length - sprintf(buffer, "Vortex Spacing: Cosine"); 


1 

j 

1 

t 

i 


133 


i 

I 

< 

i 

i 

i 

f'J 


/ • , ' • ; . .. ,. • 


.• • 

r— 




_ 





TcxtOut(PaiatDC, (u*X10.0*w»dth'640.0), 
(uxxso.o*twtghi/4ao.ox 
buffcr, k*gth); 

limit the control pout spacing wkcttoa 
if(coatrolpt flag) 

length - ^cintflCbuffcr, *Coat Pt Spacing: Midpoint*); 
dae 

length - «pri a tB[bnffcf , “Coat Pi Spacing: Coaiae*); 

TextOuKPaintDC, (iatX 10.0*width/640.0), 
(iatX700*height/4S0.0X 
buffer, length); 

//write out the Glauert coefficients 
fbr(i-0;i<5;t++){ 

length-sprintffbuffer/Coeflkient a%d: %+5.2f\i+l, 
codfidentsfil); 

TextOut(PaintDC,(intX 10.0*width/640.0), 

(intX(floatX 130+i*20)*height/480.0), 
buffer,length); 

> 

//select the original font and delete the one created for this function 
SelectFont(PaintDC,bOkDFont); 

DeleteObject(hFont); 

> 


After the function is declared, a declaration of the global variables that will be 
used in the paint data box function is made. The extern keyword tells the compiler that 
the original declarations of the variables that follow it are made in a separate source code 
file. 

Five new variables are declared locally to the paint_data_box function. The 
character array, buffer, is used to store the text strings that will be written to the screen. 
The integer i is a loop counter and the integer length is used to indicate the length of the 
string written into buffer. The last two variables declared are HFONT variables. An 
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HFONT is a handle to a font that is used to (haw the text output. In this case two are 
defined, a handle to the device default font, and a handle to the font originally specified 
upon creation of the device context. 

The paint data box function uses the GetStockFont function to get a handle to the 
monitor device default font, the font preferred by the monitor. The GetStockFont 
function receives an unsigned integer and returns a handle to the specified font. The 
device default font is then selected into the device context using the SdectFont function. 
The SdectFont function receives the handle to the device context and the handle of a font, 
selects the font into the specified device context and returns a handle to the font that was 
replaced. The handle to the font originally in the device context is retained in hOldFont so 
that it may be selected back into the device context at the end of the function and hFont 
may be ddeted. This is done to free the memory allocated to the font referred to by 
hFont. 

Next the rectangles that enclose the current variable data are drawn using the 
Rectangle function. 

Rectangle(PaintDC,(intX 1 0*width/640.0),(intKO.O*height/480.0), 
(intX250.0*width/640.0),(intX25.0*height/480.0)); 

The Rectangle function receives the handle to the device context and the Cartesian 
coordinates of the upper left and lower right comers of the rectangle to be drawn. The 
coordinate system used on the screen is determined by the mapping mode of the device 
context. The default mapping mode is MM TEXT. This means there is a one to one 
correspondence between logical units and pixels, and that the upper left comer of the 
client window is (0,0) with the positive x axis to the right and the positive y axis down the 
screen. 

In order to provide for device independent output to monitors of different 
horizontal and vertical resolution, the logical coordinates are scaled by a factor of 





» 


width/640.0 or height/480,0 as appropriate. The result is then cast as an integer. The 

GDI recognizes integral coordinates since the finest resolution possible is one pixel. 

After the rectangles are drawn, the data box is labeled. 

length - sprintffbuflfer, "CURRENT VARIABLE DATA"); 

TextOut(PaintDC,(intX3 9 0*width/640.0), 

(intXS.O* height/480.0), 
buffer, length); 


The sprintf function writes formatted character output to a cfiaracter array and returns the 
number of bytes written, minus the null terminating character. The Text Out function is 
the most basic of the tact drawing functions. It receives the handle to the device context 
where the text is to be drawn, an integral client area coordinate where the text is to be 
drawn, a pointer to the string to be drawn, and the length of the string to be drawn, in 
bytes. 

The sprintf function is used in further, slightly more complicated statements, to 
write output strings that include variable data to the character array. In the statement 
shown here the current integer value of NUMBER_ELEMENTS is included in the output 
string. This is accomplished by using the %d format specifier to indicate where in the 
string the integer value wall be printed, and then including the variable name in the list of 
output variables in the the sprinf statement. 

length ~ sprintffbuffer, "Number of Elements: %d",NUMBER_ELEMENTS); 

The paintdatabox function continues to test the vortex and control point spacing 
flags and provide appropriate output A for loop is used to print each of the Glauert 
coefficients. The format specifier, %+5.4f, is used in the statement that writes Glauert 
coefficients to the buffer array. This indicates that a floating point number will be written, 
showing four decimal places, and including the sign even if it is positive. 

lcngth«spiintf(bu£fer,"Coefifkient a%d: %*5.2f,i+l. 
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coefficients^!); 


TextOut(PaintDC,(intX 10.0*width/640.0), 

(intX(floatX130+i*20)*hdgbt/480.0), 

buffer.kngth); 


The y coordinate in the Text Out function in this case is calculated using the index of the 
coefficient. 

The last two statements in this function use the SelectFont function to select the 
original font back into the device context and the DeleteObject function to free the 
memory associated with the font used to draw the text output. Since it is not permissible 
to delete a font, or any other object currently selected into the device context, the original 
font must first be restored. The memory is freed since if it were not, the memory would 
be effectively consumed and would not be released until termination of the current 
Windows™ session. 


A.5.2 The VLL paint_graphs function. 

The second function used by VLL to draw output to the screen is the paint^graphs 
function. It is shown below. 


* the paintjgraphs function draws the graphs and percent error data 4 

* on the passed device context 4 

void paint jgraphs(HDC PaintDC) 

{ 

* declare variables that are defined in the vll.c file and that will be used in this function * 
******•*****•***********•*************"*****************************/ 

extern float width, height; 

* Variable declarations * 


HFONT 


hFont, 

hSmallFont, 


//handle to the default font 
//handle to a small font 
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hFootVert, 

//handle to a vertically 
//oriented foot 


• 


bOidFoot; 

//handle for default font 

» 


LOGFONT 

(Font; 

//logical font structure for 





//creating the fonts 



WEN 

hFenpl. 

//pens for drawing the data pts 




hThickPen, 

//pea for drawing axes 

§ 

• 


hOidPen; 

//handle for default pea 



HBRUSH 

hBrush(2), 

//brashes for drawing the data 




// points 




hWhiteBmsh, 

//white brush 


• 


hOidBrush; 

//handle for old brush 

• 


char 

bufferfl20J; 

//buffer for character output 



int 


//loop counter 




length 

//length of character output 




NUM_ELEMENTS; 

//number of elements 

i 

• 



// (discretization) 



float 

. m. 

//power of ten used in finding 
// max value of w or circ 




pzw. 

//percent error in lilt, drag. 

i 

• 


pxw. 

// and lift/drag*drag given w 




prw. 

//and given circ 




pzg. 





P*g, 





P*g. 



• 


max_w=0. 

//maximum and minimum values 

• r 

i. 



min_w=0, 

max_circ”0, 

min_circ=0; 

// for w and circ for scaling plots 



float 

* w_ex. 

//pointers to arrays of floats 

• 

• 


* w_num, 

* drc, 

*y_cont, 

♦gam; 

// for storing plot data 


• 

FILE 

*ptot; 

//pointer to a file structure 

» 


POINT 

point. 

//point structure used for 




// plotting data points 




origin. 

//origin of the current plot 




origI21-{{460,100}. 

//origins of the velocity and 

• 

• 


{460,320}}; 

// and circulation plots 






mmmmm 
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//allocate memory for the vectors 

w ex - (float *)nalloc((MAX NUMBER ELEMENTS* l)*sizeof (float)); 
w aum - (float *)maUoc((MAX NUMBER ELEMENTS+l)*sizeof (float)); 
cue - (float *)onUoc((MAX NUMBER ELEMENTS* l)*sizeof (float)); 
y coot - (float *) malloc((MAX NUMBER ELEMENTS* l)*sizeQf (float)); 
gam - (float *) malloc((MAX_NUMBER_ELEMENTS+ l)*sizeof (float)); 

//create red and blue pens and brushes to draw the graphs 

hBnuhJO] - CrcateSolidBrush (RGB(255,0.0)); 
hPen[0] - CreatePen (PS_SOLID, 1, RGB(255,0,0)); 

hBrushfl] - CreateSolidBnish (RGB(0,0,255)); 
hPen[l] - CreatePen (PS_SOLID, 1, RGB<0,0,255)); 

hThickPen = CreatePen(PS_SOLID, 3, RGB(0,0,0)); 
hWhiteBrush = GetStockObject(WHITE_BRUSH); 

//use the device default font to fill a logical font structure 

GetObjcct(GetStockFont(DEVICE_DEFAULT_FONT),sizeof(LOGFONT),&lFont); 

//get a handle to the device default font 

hFont = CreateFontIndirect(&lFont); 

//alter the font size and create a small font for the axis labels 

IFontUHeight = 10; 

hSmallFont = CreateFontIndirect(&lFont); 

//alter the font size and orientation and create a vertically oriented font 

lFont. IfEscaperaent = 900; 

IFontUHeight = 14; 

hFontVert - CreateFontIndirect(&lFont); 

// set the background mode to transparent so the text doesn't overwrite data 

SctBkMode(PaintDC, TRANSPARENT); 

//open and read the temporary data file 

plot = fopen("plotdat.tmp", "r*); 

//read the number of elements 

fscanf(plot,"%d“,&NUM_ELEMENTS); 

//read in the spanwise position of the control points, the exact circulation 
// and downwash velocity, and the numerical down wash velocity and circulation 
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for (i-l;i<-NUM_ELEMENTS;i++) 

fecaaf(plot,*%f%f%f%f%r, Ay.cattfi]. &gam[i], &w_ex[i], 

ftw_num(i), AdrcfiD; 

//read in the percent error values 

CicanftpJot, “%f %f %f %f %f %T ,&pzw,&pxw,&prw,&pzg.&pxg.&prg); 
//doae the plot file 

fcloee (plot); 

//Calculate minimum ami maximum value* far w and ciic 

fbr(i-1 ;i<=NUM_ELEMENTS; i++) { 

maxcirc - max(gam[i],inax(max_circ,circ(i])); 
mincirc = min(garn[i],min(min_circ,circ[i ])); 

max_w = max(w_num[i],max(max_w,w_ex[il)); 
min w * min(w_num(i],min(min_w,w_ex[i])); 

> 

//ensure that max_circ and max w are equal to the largest magnitude 
// circulation and velocity 

max_circ * max(fabs(ceil(max_circ))4abs(floor(nun_circ))); 
max_w - max(fabs(ceil(niax_w)),fabs(floo«tmin_w))); 

//initialize m and multiply it by 10 until m*10 is greater than max_circ, 

// then increase m by factors of 2 until m is greater than max_circ by no 
// more than a factor of 2 

m= 0.001; 

while (m*10.0 < maxcirc) m = m * 10.0; 

while (m < maxcirc) m = m * 2.0; 

//set max circ equal to m so the plot will be property scaled 
max circ - m; 
m-0.001; 

while (m’10.0 < maxw) m = m * 10.0; 

while (m < maxw) 


m ■ m * 2.0; 






I 


//act the aria values equal to the aeptive of the max values 

ouajciic - -oMx_drc; 


//Draw aad Ubd graphs 

//act the origin foe the dowaw iri i plot 

odfjoLX “ oiig(dowBwa«b].x; 

orifi&y - origfdowmvachj.y; 

//dnw a box for the graph and use a box for the axes 

Rectangle(PaiittDC,(mtX(origin. x-190)*width/640.0), 
(intX(origin.y-100)*beight/480.0), 
(intX(origm.x+170)*width/640.0), 
(intX(origin.y+l 10)*height/480.0)); 

Rectanglc(PaintDC,(intX(origm.x-i30)*wklth/640.0), 

(intX(origin.y-75)*heighl/480.0), 

(intX(origiiLX+131)*wklth/640.0), 

(intX(origin.y+76)*hcight/480.0)); 

// select a thick pen and draw the axes 


hOtdPen - SekctPeo(PaintDC,hThickPcn); 


MoveTo(PaiiitDC,(intX(origin.x-130)*width/640.0), 

(intXorigin.y*hcight/480.0)); 

LincTo(PaintDC,(intX(origjn.x+130)*width/640.0), 

(intXorigin.y*height/480.0)); 

MovcTo(PaintDC,(intXorigin.x*width/640.0), 

(intX(origin.y-75)*height/480.0)); 

LincTo(PaintDC,(intXorigin.x*widUv/640.0), 

(inlX(origin.y+75)*hcight/480.0)); 

//plot the numerical solution for dowmvash velocity 

//■elect the red pen and brush 

SefcctPetXPaintDChPenlOJ); 

hOUBmsh - SekctObject(PaintDC,hBnish[0)); 

//loop through all of the control points 

fci(i-l;i<-NUM_ELEMENTS;i++) { 


« 
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//clientage the x lad y coo rdi— l c» correspo n di n g to onch point 


# 


i 






















point x^in»X((((y_coolIiJ/0.5)* 130.0>+origin.x)*widthy64<).0); 
pointy^intX((((^Jwn»{i)/inax_w)*75.0)+origiB.y)*height)/4*0.0); 

//draw a rectangle fcr the numerical points 

R*ctangle(PaintDC,pointx-3,pointy-3,pointx+3,pointy+3); 

} 

//print am|de rectangle (numerical point) 

pointx - 125*width/640.0; 
pointy - 290*height/480.0; 

Rectangle(PaintDC,point x-3,point y-3 .point x+3 .point y+3); 

//select the blue pen and brush 

SefcctPen(PaintDC,hPen[ 11); 

SekctObject(PaintDC,hBrush[ 1J); 

//Plot the exact solution for downwash velocity 

//loop through all of the control points 

for(i”l;i < =NUM_ELEMENTS;i++) { 

//calculate the x and y coordinates corresponding to each point 

point x-(intX((((y_cont(iJA). 5)* 130.0)+origin.x)*width)/640.0); 
point.y=(intX((((-w_exliJ/max_w)*75.0)+origin.y)*hcight)/480.0); 

//draw an ellipse for the exact points 

Ellipse(PaintDC,pointx-2,poinLy-2,poinLx+2,point y+2); 

> 

// print sample Ellipse (exact point) 

pointx *■ 125*width/640.0; 
pointy - 270*beight/480.0; 

Ellipse(PaintDC,pointx-2,point y-2,point x+2,point. y+2); 

//select the solid, thin. Mack pen, the white brush, and the small font 
SelectPen(PaintDC,h01dPen); 

SelectObject(PaintDC, hWhiteBrush); 
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I 

1 

j 

hOtfoot - SokcffOottPaiatDCJ^aaiffoat); 

4 

//align the text outpat to right abutted and label the y axis 
SelTc*Mliji»(P»intDCTA_RIGHT); 

I //draw the horizontal lines for the graph 

fcc(i“-5;i<6;i++) { 

MovcTo(PimlDC,(intX(origjiLx-132)*rridth/640.0), 
(intX(origin.y-i* 15)*hdght/4«0.0)); 

* LincTo(P*ii»tDC,(ii»tX(origin. x+130)*wkfth/640.0), 

(iiU)((origiii.y-i* 15)* height/480.0)); 


//label ho rizonta l line, the at iWimat« disptoyed 

// oo the magnitude of the maximum value 


if(max_w < 10.0) { 

length ” sprintf(bu£fer, "%4.2P,(max_w/5.0) * i); 

TextOut(PaintDC,(intX(origin.x-140)*width/640.0), 
{in?X(origin.y-i*15-3)*height/480.0), 
buffer, length); 

} 


t 


else t 


length ” sprintf(buffer, "%4. If\(max_w/5.0) * i); 


TextOut(PaintDC,(imX(origin.x-140)*width/640.0), 
(imX(origin.y-i* 15-3)*height/480.0), 
buffer, length); 


> 


> 

//restore the text alignment to left adjusted and label the x axis 
SetTextAlign(PaintDC,TA_LEFT); 
lbf(i-3U<6;r^) { 

MoveTo(PaintDC,(intX(origm.x+i*26)*width/640.0), 

(intX((origin.y+77)*height/4«0.0))); 
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UneTo(PiiatDCXiatX(origin.x-H*26)*width/640.0) > 

(iatX((ongin.y>75)*height/4S0.0))); 

length “ ^hadCouBer, *%2.1f\0.1*i); 

TcxK>H(P«intDC,(iatX(ori pa.x-8+i*26)*widU^640.0), 
(int)((Ofipa.y+80) • height/480.0), 
buffer, length); 

> 

//repeat the process for the circulation graph 

orifiii.x - ori j|drcu)x; 

origin.y “ origfrircuj.y, 

Rectangle(PaintDC,(iiitX(origin.x-190)*width/640.0), 

(iittX(origtn.y-100)*height/480.0), 

(intX(origin.x+ 170)*width/640.0), 

(intX(origin.y+l 10)*height/480.0)); 

Rectangle(PaintDC,(intX(origin.x-130)*width/640.0), 

(intX(origin.y-75)*height/480.0), 

(intX(origin.x+131 )*width/640.0), 
(intX(origin.y+76)*height/480.0)); 

SekctPen(PaintDC,bThickPeii); 

MoveTo(PaintDC,(iiUX(ongin.x-130)*width/640.0), 

(intXorigin.y*height/480.0»; 

LineTo(PaintDC,(intX(origin.x+130)*width/640.0), 

(intXorigin.y*height/480.0)); 

MoveTo(PaintDC,(intXorigin.x*width/640.0), 

(intX(origin.y-75)*height/480.0)); 

LineTo(PaiiitDC,(intXorigin.x*width/640.0), 

(intX(origin.y+75)*height/480.0)); 


SdectPcn(PaintDC,hPeii[0]); 

SdeclC)bject(Paii)tDC,hBrush[0]); 
fbr(i-l ;i<-NUM_ELEMENTS;i++) { 

point x-(i«X((((y_coot|il/0.5)*130.0>K)ngin.x)*width)/640.0); 
poiaty-(int)(((((-iun{i)/inax_dre)*73.0)+origin.y)*height)/480.0); 

Rectangk(PaiiitDC,poinLx-3 .point y-3,point x+3 ,point.y+3); 

} 


SdectPen(PaintDC,hPen[ 1]); 





4 


SdectObject(Piiat£>C > hBnish{ 1 ]); 

fcf(»-1 ;i<-NUM_ELEMENTS;i++) { 

poiaLx-(iiHX((((y co«t|iJA).5)*130.0)+ofigin.x)*widthV640.0); 
poi*LjrHialX((((-circiiV™w_cire)*75.0>+ofi*in.y)*hciflity4«0.0); 

EUipae(P«i«DC,pou»tx-2,po*nty-2,poinLx+2,point.y+2); 

} 


SdectPeaCPaiotlX^hCXdPefl); 
SekctOb)cct(PaintDC, hWhiteBrash); 
SetTextAlign(PtimDC,TA_RIGHT); 


foi(i m -5;i<6;t++) { 


MorveTo(PaintDC 1 (intX(origin.x-I32)*widtli/640.0), 
(intX(origin.y-i* 15)*height/480.0)); 

LineToCPaintDC > (intX(origin.x+130)*width/640.0), 
(inlX(origin.y~i * 15)*height/480.0)); 

if(max_w < 10.0) { 

length * sprintf(buffer, m %4.2f , ,(aux_cuc/5.0) * i); 

TcxtOut(PaintE>C,(intX(origin.x-140)*width/640.0), 

(intX(origin.y-i* 15-3)*height/480.0), 
buffer, length); 


> 


else { 

length ■ sprintffbuffer, *%4.1F,(max_circ/5.0) * i); 

TextOut(PaintDC,(intX(origin.x-140)*width/640.0), 

(intX(origin.y-i*15-3)*height/480.0), 
buffer, length); 


4 


> 


> 

SetTextAlign(PaintDC,TA_LEFT); 


< 


®Df(i--5;i<6;i-H-) { 


MoveTo(PamtDC,(intX(origin.x+i*26)*wkhh/640.0), 

(intX((origin.y+77)*he»ght/4*0.0))); 


4 
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UneTo(PaiatDC,(intX(origia.x-H*26)*wtdth/640.0), 

(intX((origta.y-75)*beight/4tO.O))); 


r. •%2.ir,o.i*i); 


TexlOul(PaiatDC > (iatX(origin.x-*+i*26)*wi<hh/'640.0), 

(iatX(origin.y+80)*h£tght/440.0), 


//Meet the vertical foot and label the y axes 

SekctFoot(PaintDC,hFootVert); 

length - sprintf(buffer. *W/U*); 

TextOut(PaintDC, (intX275.0*width/640.0), 
(intX120.0*heigbt/480.0), 
buffer, length); 

length - sprintflbuffer, "NON-DIM CIRC"); 

TextOut(PaintDC, (intX273.0*width/640.0), 
(intX3S0.0*hetght/480.0). 
buffer, length); 

//select the device default foot back into the device context, label the 
// x axes and the sample ellipse and rectangle 

SelectFont(PaintDC,hFoat); 

length = sprintfCbufier. "SPANWISE POSITION Y/S"); 

TextOut(PaintDC, (intX370.0*width/640.0), 

(intX 190.0*height/480.0), 
buffer, length); 

TextOut(PaintDC, (intX370.0*width/640.0), 
(intX410.0*heighl/480.0), 
buffer, length); 

length ” sprintf(buffer, "Exact:"); 

TextOut(PaintDC, (intX55.0*width/640.0), 
(intX260.0*height/480.0), 
buffo-, length); 

length - sprintfCbuffer, "Approx:"); 

TextOut(PaintDC, (intX55.0*width/640.0), 
(intX280.0*height/480.0), 
buffer, length); 


< 
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//draw the percent error box and fill in the values 

Rectangle(PaintDC,(intX 1 .O*width/M0.0),(iat)(300.0*he»ght/480.0X 
(intX230.0*width/640.0),(intX340.0*hd^tf/4SO.O)), 

Rectangle(PiiiitDC,(intX 1 0*wktth/640.0),(iatX340.0*beigbt/480.0), 
(intX230.0*width/640.0),(uU)(360.0 < height/480.0)); 

length “ iprintflbufler, ’Error in Predictions’); 


TextOuXftuntDC, (intX28.0*width/640.0X 
(intX305.0*height/4SO.O), 
buffer, length); 

length ” iprintf(buffer, "for Fz, Fx, Fx/(Fz)**2*); 

TextOut(PaintDC, (intX25.0*width/640.0). 

(intX320.0* height/480.0), 
buffer, length); 


length <■ sprintf(buffer, ’Given Gammaty)"); 


TextOut(PaintDC, (intX54.0*width/640.0), 
(intX342.0*height/480.0), 
buffer, length); 


Rectangle(PaintDC,(intX 10*wktth/640.0),(intX360.0*height/480.0), 
(int)(77.0*width/640.0),(uitX380.0*height/480.0)); 


Rectangie(PaintDC,(intX78.0*width/640.0),(intX360.0*height/480.0), 

(intX153.0*width/640.0),(intX380.0*height/480.0)); 


Rectangle(PaintDC,(intX154.0*width/640.0),(intX360.0*height/480.0), 

(intX230.0*width/640.0),(intX380.0*height/480.0)); 

Rectangle(PaintDC,(u>tX1.0*width/640.0),(intX380.0*height/480.0), 

(intX230.0*width/640.0),(intX400.0*height/480.0)); 

Rectangle(PaintDC,(intX1.0*width/640.0),(intX400.0*height/480.0), 

(intX77.0*width/640.0),(intX420.0*height/480.0)); 

Rectnngfc(PaintDC,(int)(78.0*width/640.0),(intX400.0*height/480.0), 

(intX133.0*width/640.0),(intX420.0*height/480.0)); 

Rectangle(PnintDC,(intX134.0*width/640.0),(intX400.0*height/480.0), 
(intX230.0*width/640.0),(intX420.0* height/480.0)); 


length - sprintf(buffer, ’Given w*(y)"); 

TextOutCPaintDC, (intX70.0*width/640.0), 
(intX382.0*height/480.0), 
buffer, length); 
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length - *rinlf(bufler. *%3. liS'jHg); 

TextO^CPiiatOC (ialX23.0*wkkW640.0), 
(iutX402.0*heigbt/480.0), 


Inigth - sprintflbuffcr, *%3.1f% , \jwg); 

TexlOut/PiintDC, (intX102.0*width/640.0X 

(intX4020*height/480.0X 
buffer, length); 

length ■ qprintffbuffer, -%3.lf%",prg); 

TextOut/PnintDC, (intX17S.0*wi«h/640.0X 
(intX402 0*heigbt/480.0), 
buffer, length); 

length - sprintf{buffer, "%3. lfV.pzw); 

TcxtOut(PaintDC, (intX25.0*width/640.0), 
(intX362.0«height/480.0), 
buffer, length); 

length ” sprintffbuffer, "%3. lf%",pxw); 

TextOut(PaintDC, (intX 102.0*width/640.0), 
(intX362.0*height/480.0), 
buffer, length); 

length ” sprintf^buffer, *%3.1f%",prw); 

TextOut(PaintDC, (intX178.0*width/640.0), 
(intX362.0*height/480.0), 
buffer, length); 


* 


i • 


//select the original font, pen, and brush 

SelectObject(PaintDC, bOWBrush); 
SelectObject(PaintDC, hOldPen); 
SelectFont(PaintDC, bOWFoot); 

//delete the objects created Ibr this Suction 

DdeteObject/hPenJOJ); 
DektcObject(hPen[ 1 ]); 
DeleteObject(hThickPen); 

DekteObject(hBn»h(0]); 

DeleteObject(hBnish(l]); 

DeleteObject(hWhiteBru*h); 

DeJeteObject/hFont); 
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!>ii> ftfrr tQTrartYr rt) 


//free the allocated aKwxy 

free( w_ex y, 
free( w_mhb ); 
free(cuc ); 
free(y_cootX 
freeCgem ); 

} 

As in the paint_data_box, a declaration of the global variables that will be used in 
the function is made after the function declaration. Several new variables are also 
declared locally to the function. Instead of describing them at this point, they will be 
explained along with the main body of the function. 

This function uses the malloc function at run time to allocate memory for the data 
to be plotted. Its usage is illustrated below. The malloc function receives the number of 
bytes of memory heap to allocate and returns a pointer the allocated memory. In this case 
the pointer is then cast as a pointer to an array of floats and assigned to w_ex. 
w_cx - (float *) malIoc((MAX_NUMBER_ELEMENTS+l)*sizeof (float)); 

This is repeated for all of the dynamically allocated variables in the paint_graphs function. 

A pair of brushes and pens are then created. The hBrush variable is an array of 
two brushes, a red brush and a blue brush. The brush selected in a device context controls 
how shapes such as rectangles and ellipses will be drawn. Specifically, the brush controls 
how the internal region will be drawn. The pen selected in a device context controls how 
lines or the borders of shapes such as rectangles and ellipses will be drawn. The 
paintjgraphs function uses the CreateSolidBrush function to create the red and blue 
brushes. The function receives a color reference returned by the RGB macro and returns a 
handle to the new brush. The RGB macro receives an intensity between 0 and 2SS for the 
red, green, and blue components and returns a color reference based on the specified 







intensities and the capabilities of the output device. A solid white brush is also created, 
but instead of the CreateSolidBrush function, the GetStockObject function is used. The 
GDI has several predefined objects, including a white brush. The GetStockObject 
function receives an integer identifier and returns a handle to the stock object. 

The CreaiePen function is used to create the red and blue pens and a thick black 
pen. The function receives a line style, in this case solid, a line thickness in pixels, and a 
color reference. It returns a handle to the new pen. 

The function then creates fonts that will be used to draw text output. The first 
step is to fill a logical font structure, lFont, using the attributes of the device default font. 
This is done by using the GetObject function. The GetObject function receives a handle to 
an object, the size of a buffer to receive data describing the object, and the address of the 
buffer. In this case the handle is the return value of the GetStockFont function, the 
address of the buffer is the address of the logical font structure, and the size of the buffer 
is the size of a LOGFONT structure. The LOGFONT structure is defined as follows: 
typedef struct tagLOGFONT { /* If */ 


int 

IfHdght; 

int 

IfWidth; 

int 

lfEscapement; 

int 

lfOrientation; 

int 

lfWeight; 

BYTE 

Ultalic, 

BYTE 

IfUndertine; 

BYTE 

lfStrikeOut; 

BYTE 

IfCharSet; 

BYTE 

lfOutPrecision; 

BYTE 

lfOipPrecision; 

BYTE 

lfQuality; 

BYTE 

IfPitchAndFamily; 

BYTE 

> LOGFONT; 

IfFaccNamcfLFF ACES IZE); 


The address of the logical font structure is then passed to the CreateFontlndirect function 
which creates a font with the attributes described in the structure and returns a handle to 
the new font. The attributes in the logical font structure are then modified and a small 
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font, hSmallFont, and a vertically oriented font, hFontVert are created. The IfHeight 
parameter of the LOGFONT structure specifies the cell height of the font in logical units. 
The IfEscapement parameter specifies the orientation of the text in tenths of a degree 
counterclockwise from the positive x axis. 

VLL now sets the background mode for the device context using the SetBkMode 
function. The SetBkMode function can set the background mode to OPAQUE, which is 
the default, or TRANSPARENT. The OPAQUE mode causes the screen area under text 
that is printed to first be repainted with the background color. The TRANSPARENT 
mode causes the text to be printed directly over the pre-existing background. 

SetBkMode(PaintDC, TRANSPARENT); 

The paintjgraphs function then reads the data to be plotted from a temporary plot 
file, plotdattmp, that was created at run time for the current data set. The file is opened 
using the fopen function. The fopen function receives a character constant file name string 
and a character constant mode, in this case V for read only, and returns a pointer to a 
stream. In this instance the value of the pointer is assigned to plot, a pointer to a file 
structure. A file structure is defined as follows: 


typedef struct} 
short 
unsigned 
char 

unsigned char 
short 

unsigned char 
unsigned 
short 
} FILE; 


level; 

flags; 

fd; 

hold; 

bsize; 

♦buffer, *curp; 

istemp; 

token; 


The paintjgraphs function then uses the fscanf function to read the number of data points 
to be Hotted, the values of spanwise control point position, circulation, and downwash 
velocity, both exact and numerical values, and the percent error values. The data file is 
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then closed using the fclose function, which receives a pointer to a file stream and returns 

0 if successful and EOF if not successful. EOF is a constant that indicates that the end of 

a file has been reached. 

//open and read the temporary data file 

plot - fopenCptotdattmp", V); 

//read the number of elements 

&can£(plot, ,, Sd”,ANUM_EL£MENTS); 

//read In the spanwise position of the control points, the exact circulation 
// and dowowash velocity, and the numerical down wash velocity and circulation 

for (i*l;i<=*NUM_ELEMENTS;i++) 

fscanf(plot, ,, %f %f V«f */«f W, &y_cont[i], &gam[i], &wex[ij, 

&w_num[i], &circ[i]); 

//read in the percent error values 

fscanf(plot,"%f %f %f %f %f %r,&pzw,&pxw,&prw,&pzg,&pxg,&prg); 

//close the plot file 

fclose (plot); 

The paintjgraphs function proceeds by finding the maximum and minimum values 
of circulation and downwash velocity that will be plotted. This is done by looping through 
all of the data and using nested max or min statements. For illustration purposes, the 
maxcirc case is described. 

The max macro compares two values of the same type and returns the larger of the 
two values. In the statement shown here, max_circ is compared with the numerical 
circulation value, drc[i], and the returned value is compared with the exact circulation 
value, gam[i]. The value returned from this comparison is assigned to the max circ 
variable. This process is repeated over the range of control points so that the final value 
of max_circ is the largest circulation value that wall be plotted. 
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//Calculate the minimum and maximum values for w and cure 

foi(i*I;i<“NUM_ELEMENTS;i++) { 

max_circ - max(gam[i],max(max_circ,tirc(i])); 
mincirc - min(garo[i),min(min_circ,circ|i])); 

max_w * max(w_num[i],max(max_w,w_ex[i])); 
min w - roin(w_mim(i),min(min_w.w_cx[i])); 

1 

The values of max arc and max_w are then adjusted to integral values just greater 
than or equal to the larger of the magnitudes of max and min values to be plotted. This is 
done using the floor and ceil functions, for the purpose of provide an integral range on the 
ordinates of the plots. The floor function returns the largest integer that is not greater 
than the argument and the ceiling function returns the smallest integer not less than the 
argument. 

//ensure that max_circ and maxw are equal to the largest magnitude 
// circulation and velocity 

max_ciic = max(labs(cei](max_circ)),fabs(floor(inin_circ))); 

maxw = max(fobs(ceil(max_w)) > fabs(floor(min_w))); 

The next ten lines of executable code adjust the maximum and minimum values to 
the y axes of the plots so that the x axis is in the middle of the plot and the vertical extent 
of the plotted data covers at least half of the vertical scale in either the positive or negative 
direction. This is done to give the plotted data a reasonable scale with respect to the plot 
area. 

//initialize m and multiply it by 10 until m*10 is greater than max_circ, 

// then increase m by factors of 2 until m is greater than maxcirc by no 
// more than a factor of 2 

m- 0.001; 

while (m*10.0 < maxcirc) m = m * 10.0; 

while (m < max circ) m » m * 2.0; 

//set max circ equal to m so the plot will be properly scaled 
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* m * 10.0; 




max_drc-m; 


«- 0 . 001 ; 

wUk (m*10.0 < maxw) 
white (m < maxw) 


m - m * 2.0; 


max_w« m; 

//aet the min values equal to the negative of the max values 
nua_dic ” -maxcirc; 
min_w - -max w; 


The origin is then set to the origin of the downwash velocity plot and the box 
outlines of the graph and the plot region are drawn using the Rectangle function. 

//set the origin for the downwash plot 

origin.x *= orig[downwash].x; 

origin.y = orig[downwashj.y; 

//draw a but for the graph and use a box for the axes 

Rectanglc(PaiiitDC.(intK(origin.x-190)*width/640.0), 

(intX(origin.y-100)*height/480.0), 

(intX(origin.x+170)*width/640.0), 

(intX(originy+l 10)*height/480.0)); 

Rectangle(PaintDC,(intX(origin.x-130)*width/640.0), 

(intX(origin.y-75)*height/480.0), 

(intX(origin.x+13 l)*width/640.0), 

(intX(origin.y+76)*height/480.0»; 


The x and y axes are then drawn using the thick pen. The MoveTo and LineTo 
functions are used for this purpose. The MoveTo function receives a handle to the device 
context and a Cartesian screen coordinate and moves the current position to the 
coordinate. The LineTo function also receives a handle to the device context and a 
Cartesian screen coordinate. The LineTo function causes a line to be drawn to the device 
context from the current position to the specified coordinate, using the pen selected in the 
device context. 
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// (elect a thick pea and draw the axes 

hOidPen - SekxaP«(Pwi»aX:,hThkiPca); 

MowcTo(PaintIX^(iatX(origin.x-130)*width/640.0), 

(intXorigin.y*height/4«0.0)); 

IineTo(PiintIX^(intX(origin.x+130)*width/640.0), 

(intXorigin.y*hright/480.0)); 

MoveTo(PiintDC(intXorigin.x*width/640.0), 

(intX(origw.y-75)*height/480.0)); 

LincTo(PaiittDC,(u»tXorigm.x*width/640.0), 

(intX(origin.y+75)*hetght/480.0)); 

The numerical solution for down wash velocity is then plotted using the red pen 

and brush. A for loop is used to index through each point and calculate the associated 

screen coordinate and draw a red rectangle centered at the screen coordinate. 

SefectPieii(PaintDC,hPen(0]); 

bOidBrush - SelectObject(PaintDC,hBnish[0]); 

//loop through all of the control points 

fbr(i~l ;i<»NUM_ELEMENTS;i++) { 

//calculate the x and y coordinates corresponding to each point 

poiatx-(intX(((^_oo«tflilA).5)*130.0>+origin.x)*widthy640.0); 

pointyXimX((((-w_wun(il/nax_w)*75.0)+origin.y)*heighty480.0); 

//draw a rectangle for the numerical points 

Rectangle(PaintDC t point.x-3,poinLy-3,poinLx+3,point y+3); 

1 

A sample rectangle is then printed. It will be used as part of the plot legend. 

//print sample rectangle (numerical point) 

pointx - 125*width/640.0; 
pointy * 290*height/4*0.0; 

Rectangle(PaintDC,pointx-3,pointy-3,point.x+3,point y+3); 
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The process is repeated for the exact solution for down wash velocity, using blue circles 
instead of red rectangles. The code is shown above and is not repeated here. * 

The thin black pen, small font, and white brush are then selected into the device 
context for the purpose of labeling the graph and filling in the horizontal and vertical lines 
on the graph. The text alignment is set to right adjusted using the SetTextAlign function ® 

prior to printing. The SetTextAlign function receives a handle to the device context and a 
text alignment flag. The text alignment flag can be any of the following: 

i 

TA CENTER horizontally centered 
TAJLEFT aligned to the left 

TA RIGHT aligned to the right * 

//select the solid, thin, blade pen, the white brush, and the small font 
SelectPen(PaintDC,h01dPen); 

SelectObject(PaintDC, hWhiteBrush); * 

hOldFont = SelectFont(PaintDC,hSmallFont); 

//align the text output to right adjusted and label the y axis 

SetTextAlign(PaintDC,TA_RIGHT); * 










A for loop containing MoveTo, LineTo, sprintf, and Text Out function calls is then 
used to draw the horizontal lines and label the y axis. The number of decimal places 
drawn in the y axis labels is selected as one or two depending on the range of the graph. 

//draw the horizontal lines for the graph 
fbr(i”-5;i<6;i-H-) { 

MoveTo(PaintDC,(intX(origin.x-132)*width/640.0), 

(intX(origin.y-i* 15)*beight/480.0)>; 

LineTo(PaintDC,(intX(origin.x+130)*width/640.0), 

(intX(origin.y-i* 15)*height/4*0.0)); 
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TexK>*(Paii)(DC,(intX(origin.x-140)SndQV640.0), 
(iatX(ori*i*Ly-i* 15-3)*hd*ht/«0.0), 
buffer, length); 


else { 

length “ sprintftbuffer, *%4.1P,(max_w/5.0) * i); 


TextOut(PaintDC,(intX(origin.x-140)*wkfth/640.0), 
(intX(origin.y-i* 15-3)*hdght/480.0), 
buffer, length); 


After restoring the text alignment to TAJLEFT, the default value, another for loop 
containing MoveTo, LineTo, sprintf and Text Out function calls is used to draw the 
vertical lines and label the x axis. 


//restore the text alignment to left adjusted and label the x axis 
SetTextAlign(PaintDC,TA_LEFT); 
fiw(i**-5;i<6;i++) { 

MoveTo(PaintDC,(intX(origin.x+i*26)*width/640.0), 

(intX((origjn.y+77)*beight/480.0))); 

LineTo(PaintDC,(imX(origin.x+i*26)*width/640.0), 

(intX((origin.y-73)*height/480.0))); 

length - sprintffbuffer, *%2. ir.O. I*i); 

TextOut(PaintDC,(intX(origin.x-8+i*26)*width/640.0), 
(intX(origin.y+S0)*height/480.0), 
buffer, length); 








« 


The origin it then reset to the circulation graph origin and the entire {meets, 
except for drawing the sample rectangle and ellipse, is repeated for the circulation graph. 
The code is shown above and is not repeated here. The vertical and device default fonts 
are then used in coiyuction with sprintf and TextOut calls to label the graphs and the (dot 
legend. 

//select the vertical foot and label the y axes 

SdcctFont(PsintDC,hFontVcrt); 

length - sprintf(buffer, *W/LT); 

TextOutCPaintDC, (intK275.0*width/640.0). 

(intX120.0*height/480.0), 
buffer, length); 

length - sprintf(buffer, "NON-DIM CIRC"); 

TextOut(PaintDC, (imX275.0*width/640.0) 1 
(intX3SO.O*hetght/4SO.O), 
buffer, length); 

//select the device default font bnck into the device context, label the 
//x axes and the sample ellipse and rectangle 

SdcctFont(PaintDC,hFoiU); 

length - sprintKbuffer, "SPA.\WISE POSITION Y/S"); 

TextOutfPaintDC, (intX370.0*width/640.0), 

(intX190.0*height/480.0), 
buffer, length); 

TextOut(PaintDC, (intX370.0*width/640.0), 

(intX410.0*height/480.0), 
buffer, length); 

length * sprintftbuffer, "Exact:"); 

TextOut(PaintDC, (intX55.0*width/640.0), 

(intX260.0*beight/480.0), 
buffer, length); 

length = sprintftbuffer, "Approx:"); 

TextOut(PauitDC, (intX55.0*width/640.0), 
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(int)(2l0.0*height/4*0.0), 
buffer, length); 

The percent error data box is then drawn with a series of Rectangle function calls 
and filled in with sprintf and TextOut calls. The screen output is complete at that point. 
The original font, pen, and brush are selected back into the device context and the fonts, 
pens, and brushes created for the paintjpaphs function are deleted. The memory 
allocated for the plot data is freed and the function terminates without a return statement. 
The code is shown above and not repeated here. 


A.5J The VLL printdatabox and print_graphs functions. 

VLL uses two functions to draw output to the system printer. The first is the 
print_data_box function. The print data box function is nearly identical to the 
paint_data_box function. The difference is that while the paint_data_box function uses the 
globally defined width and height variables that are initialized in the WM CREATE case 
in the MainWndProc function, the print_data_box function declares local width and height 
float variables and calculates the horizontal and vertical display size internal to the 
function. These code segments are shown below. 

Z******************************************************************** 

* Variable declarations * 

float width, //scale factors for ensuring the 

height; //graphical output is scaled to 

// a 640 by 490 window 

//determine the witfch of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width - (AoaQGetDeviceCaps (PaintDC, HORZRES); 
height - (floaQGetDevkeCaps (PaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
//output made by the program is in that aspect ratio 

if((wkfah/height)>(4.0/3.0)) 

width ■ hdght*(4.0/3.0); 
else 

height * width*(3.0/4.0); 












The second function used by VLL to drew output to the system printer is the 
print_graphs function. The printjgraphs function, like the print_daU_box function, is 
nearly identical to its screen painting counterpart. The difference between these two 
functions is also in the local declaration and calculation of the width and height variables. 
These code segments are shown below. 



ft 


/********••*•**********•**••******•***••*••************•*********•*** 

* Variable declarations * 

float width, //scale factors for ensuring the 

height; // graphical output is scaled to 

// a 640 by 480 window 


ft 


//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 


width “ (float)GetDeviceCaps (PaintDC, HORZRES); 
height - (float)GetDeviceCaps (PaintDC, VERITIES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width ~ height*(4.0/3.0); 
else 

height = width*(3.0/4.0); 


t 


ft 
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A.i VLL propu listiags. 

The VLL Windows™ application uses thirteen files. Listings for these files are 
included with this document as Appendix A.6 on a 3.S inch, IBM PC formatted, double 
sided, high density floppy disk. The files are saved in an ASCII text format which can be 
read using a DOS text editor or any word processor capable of reading DOS text files. 

The complete files of this and the other programs in this thesis are not included in the 
written text of the thesis in the interest of limiting the size of the document. This page is 
included with the listings in a file named README.TXT. 

The files included on the disk are described below. 

VLL.C -contains the WinMain, MainWndProc, WMCommandHandler, 

and dialog box functions. 

PRTGRA.C -contains the print jgraphs function. 

NEWSOLVE.C -contains the LUdecomposition and LUbacksubstitution functions. 
PRTBOX.C -contains the printdatabox function. 

PNTBOX.C -contains the paintdatabox function. 

PRTGRA.C -contains the paint^graphs function. 

VLL.DEF -the module definition file. 

VLL.RC -contains definitions of the resources used in the VLL program. 

VORTEX.C -contains the vortex function. 

HEADER.H -contains the ^define and ^include statements for the VLL program. 

VLL.H -contains the definitions of the Windows™ identifiers. 

README.TXT -contains a copy of this page. 

The following files are not readable text files. 

FOIL.ICO -describes the icon used to represent the program in the 

Windows™ Program Manager. 

■the project file read by the compiler. 


VLL.PRJ 
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B.1 The VLMLE WinMain, MainWndProc, and WMCommandHandler 


functions. 

The WinMain, MainWndProc, and WMCommand_Handler functions in the 
VLMLE Windows™ application program are very similar to those of the VLL 
application. For this reason, the discussion of the functions will consist mainly of a 
comparison of the differences between the VLMLE functions and their VLL counterparts. 

B.1.1 A comparison of the VLL and VLMLE WinMain functions. 

The WinMain function for VLMLE differs from the WinMain function for VLL, 
essentially, only in the addition of the SetTimer function call shown below. 

//create a timer 

SctTimer(hWnd,IDTIMER, 100,NULL); 

The SetTimer function call is made immediately following the creation and display 
of the main window. The SetTimer function receives the handle to the window for which 
a timer is being set, a Windows™ identifier for the timer, the time-out duration in 
milliseconds, and the instance address of the timer procedure. In this case : the handle of 
the main window is specified as the window associated with the timer. IDMTIMER is an 
identifier that is defined in the VLMLE header.h file. The NULL value for the instance 
address of the timer procedure and the 100 for the time-out value mean that the timer will 
cause a WMTIMER message to be posted in the application message queue every tenth 
of a second. Since Windows™ provides only a limited number of timers, it is important to 
make judicious use of them and to property terminate their use in order to return them to 
the operating environment for use by other applications. This will be taken care of in the 
MainWndProc function. 

B.1.2 A comparison of the VLL and VLMLE MainWndProc functions. 
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The differences between the MainWndProc functions for the VLL and VLMLE 
functions are more extensive than those of the WinMain functions. The VLMLE 
MainWndProc function is shown below. 

LRESULT CALLBACK export MainWndProc(HWND hWnd, UINT message, 

WPARAM wParam, LPARAM IParam) 

{ 

switch (message) 

{ 

//this case refers menu selections to the WMCommandHandler function 

caseWM COMMAND. 

{ 

return HANDLE_WM COMMAND (h W nd, wParam, IParam, WMCommand Handler), 

} 

case WM PAINT: 

{ 

//this case handles painting the screen 

HDC PaintDC; //handle to a device context 

PAINTSTRUCT ps; //paint structure 

//prepare hWnd for painting and fill the paint structure, ps 
PaintDC = BeginPaint(hW nd, &ps); 

//paint the data box whenever the screen is repainted 
paint_data_box(PaintDC); 

//paint the graphs if the fortran executable has been run and the variable 
//data has not changed since it was run 

if(run_flag) 

paintjgraphs(PaintDQ; 

//mark the end of painting hWnd and return 0 
EndPaint(hWnd, ftps); 
return 0; 

} 

case WM_TIMER: 
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{ 


//this case is executed each timer interval, it looks for the file that 
// the fortran executable is terminating and then repaints the 

// screen and sets the ran flag 


iflaccessCvlmk.dae", 0) =*> 0) { 


RECT tcmprect; //temporary rectangle structure 


HDC tcmpDC; 


//handle to a temporary device 
//context 


float width, //scale factors for ensuring the 

height; // graphical output is scaled to 

' ^ by 480 window 


//get a handle to the screen device context 
tempDC = GetDC(hWnd); 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width = (float)GctDeviceCaps (tempDC, HORZRES); 
height “ (AoaQGetDeviceCaps (tempDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width = height*(4.0/3.0); 
else 

height = width*(3.0/4.0); 

//release the handle to the device context 
ReleaseDC(hWnd, tempDC); 


runflag -1; 

//cause appropriate sections of the screen to be repainted 

tempreettop «(int)(left_recttop*height/480.0); 
tcmprect. bottom »(intXleft_rectbottom*height/480.0); 
temprect.left = (int)(left_recLleft*width/640.0); 
tcmp rect.right «(intXleft_rect.right*width/640.0); 

InvalkiateRect(hWnd, &temp rect, TRUE); 

temp.recttop - (intXright_rect.top*height/480.0); 
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tempered bottom - (inlXright_rect b ottom*hcightM80.0); 
temp_rectleft - (iatXritht_rectleft*width/640.0); 
temprcct. right = (intXright_rectright*width/640.0); 

InvalidaleRect(hWnd, Atcmprect, TRUE); 

unlink(*vlmle.dne*); 

> 

return 0; 

} 

ease WM DESTROY: 

{ 

//this case handles requests to exit the program made by methods other than 
//the main menu 

//delete the temporary files 

ifi[access(”input.dat”, 0) == 0) unlink("inputdat“); 

if(access("output.dat", 0) = 0) unlink("ou tput.dat"); 

//remove the timer and request that the program be terminated by the 
// Windows environment 

KilITimer(hWnd,IDTIMER); 

PostQuitMessage(0); 

return 0; 

> 

} 

return DefWindowProc (hWnd, message, wParam, LParam); 

} 

The MainWndProc for VLMLE has a function declaration identical to that of VLL. Like 
VLL, it also consists of a switch that handles four cases and passes messages not handled 
by the switch to the default window procedure. The WM COMMAND case and the 
WMJPAINT case are identical to those of VLL. 

A WM CREATE case is not included in VLMLE as it was in VLL. In VLL the 
case was used to initialize global variables containing data regarding the horizontal and 






vertical dimensions of the monitor display area. In VLMLE these calculations are 
performed in the output functions, paint_data_box and paint^graphs and locally in the 
cases which cause only portions of the monitor display to be redrawn. The advantage of 
performing the calculations in the output functions is that the output functions can be 
written to be independent of the output device. This means that the paint data box and 
paintjgraphs functions write output both to the monitor and to the printer and no 
additional output functions are required. The disadvantage, which is extremely minor, is 
that the calculations must be repeated relatively frequently. 

The VLMLE MainWndProc has a case, the WMTIMER case, that is not included 
in the VLL function. The WM TIMER case responds to WM TIMER messages 
generated by the timer that is created in the WinMain function. Every tenth of a second, a 
WM TIMER message is posted in the application message queue. In response to the 
messages, the access function is used to check for the existence of the vlmle.dne file. The 
vimle.dne file is the dummy file that the VLMLE FORTRAN executable writes 
immediately prior to termination. If the file is found to exist, local variables are declared 
for the purpose of determining the size of the monitor display area The size of the 
monitor display area is then calculated. The run flag is then set to indicate that the current 
set of variable data has been run and output created. 

caseWM TIMER: 

< 

//this case is executed each timer interval, it looks for the file that 
//indicates the fortran executable is terminating and then repaints the 
// screen and sets the run flag 

iflaccess(*vlmle.dne", 0) *= 0) { 

RECT temp rect; 

HDC tempDC; 


//temporary rectangle structure 
//handle to a temporary device 







float width, 
height; 


//scale factors for ensuring the 
// graphical output it scaled to 
// a 640 by 4*0 window 


//get a handle to the scre en device context 
tempDC “ GetDQhWnd); 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width - (fkat)GetDeviceCap6 (tempDC, HORZRES); 
height - (floaQGetDeviceCaps (tempDC, VERTRES); 

//since the nonnal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.(V3.0)) 

width * height*(4.0/3.0); 
elae 

height = width*(3.0/4.0); 

//release the handle to the device context 
ReleaseDC(hWnd,tempDC); 


runflag * 1; 

//cause appropriate sections of the screen to be repainted 

temprect.top = (int)(left_rect.top*height/480.0); 
temprect.bottom * (intXleft_rectbottom*height/480.0); 
temprectleft = (int)(left_rectleft*width/640.0); 
temprect. right = (int)(left_rect.righ;*width/640.0); 

InvalidateRect(hWnd, &temp_rect, TRUE); 

tempreettop = (intXright_recttop*heightA80.0); 
temprect bottom = (intXnght_rectbottom*height/480.0); 
temp rect left = (intXright_rectleft*width/640.0); 
temp rect.right - (mtXrightjed. right*width/640.0); 

Invalida*eRect(hWnd, &temp_rect, TRUE); 

utalinkCVlmle-dne*); 


return 0; 
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The cue then causes the area of the monitor exclusive of the Current Variable Data area 
to be erased and then repainted by calling the InvalidateRect function and specifying the 
appropriate rectangles. For this purpose the global rectangle structure variables left_rect 
and right jrect are scaled so that monitors with other than a 640 by 480 display area will be 
handled properly. The reason for not invalidating and redrawing the entire screen is to 
prevent screen flicker in the Current Variable Data area. The vtmle.dne file is then deleted 
using the unlink function and the case is terminated by returning a value of zero to indicate 
that the message was handled by the function. 

The WM DESTROY case is functionally identical to its VLL counterpart with the 
exception of the addition of a KillTimer function call. 

KiUTimcr(hWiid,IDTIMHR); 

The KillTimer function receives a handle to the window associated with the timer to be 
terminated, and the identifier of the timer and removes the timer. This is done due to the 
limited number of timers available in Windows™ so that the timer may be assigned to 
other applications. 

B.1.3 A comparison of the VLL and VLMLE WMCommandHandler functions. 

The WMCommand Handler function for VLMLE is very similar to the VLL 
WMCommand Handler function in terms of functionality provided as well as structure. It 
is shown below in a series of segments, with a narrative discussion of the code 
interspersed throughout the segments. 

The function consists mainly of a switch that handles requests made by the user 
with the main menu. At the start of the function a declaration of a pointer to a dialog 
procedure, dlgProc, is made. The pointer is used in three of the switch cases to process 
requests for interaction with dialog boxes. 

void WMCoounandJtandler(HWND hWnd, int id, HWND hwndCtl, UINT codeNotify) 
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{ 

DLGPROC rflgProc; //pointer to a dialog procedure 

switch (id) 

{ 

The first case handled by the switch is the IDM_RUN case. This case responds to 
the main menu FdejRun selection. The esse first calculates the screen display area size in 
the seme way used by the WMJITMER case in section B. 1.2. 


caseODMRUN: { 
RECT temprect; 
HDC tempDC; 


//lempomy rectangle structure 

//handle to a temporary device 
//context 


float width, 
height; 


//scale factors for ensuring the 
// graphical output is scaled to 
// a 640 by 480 window 


//get a handle to the screen device context 
tempDC - GetDC/hWnd); 

//determine the width of the display in pixels and the height of the display 
//in raster lines and cast them as floats 

width = (float)GetDcviceCaps (tempDC, HORZRES); 
height - (floaQGetDeviceCaps (tempDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

-v- 

if((width/height)>(4.0/3.0)) 

width “ height*(4.0/3.0); 
else 

height - width*(3.0/4.0); 

//release the handle to the device context 
RdeaseDC/hWnd, tempDC); 


The case then dears the run flag in order to indicate that the current variable data 
has not yet beat processed by the FORTRAN executable, and then clears the portion of 
the screen external to the Current Variable Data area. After this is accomplished, the 
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input data file, input.dat, that will be read by the FORTRAN executable is written. The 
number of panels to be used, the ideal lift coefficient, the angle of attack relative to the 
ideal angle of attack, and the thickness to chord ratio are included in the file. 


//if the user selects "Raa*. write the input dat file and ran the 
// vtmle fortran program 

//dear the ran flag and cause the s cre en , other than the data box, to 
//be repainted 


ran_flag - 0; 

//cause appropriate sections of the screen to be repainted 

temprecttop - (int)(left_recttop*height/480.0); 
temp_rect bottom - (intXkft_rectbottom*height/4*0.0); 
temprectleft “ (imXleft_rect.lcft*width/640.0); 
temprect right =• (int)(left_recLright*width/640.0); 

InvalidateRectfhWnd, &temp_rect, TRUE); 

temp recttop - (intXright_rccttop*beight/480.0); 
temprect. bottom = (intXright_rectbottom*height/480.0); 
temprectleft = (intXrightrect.left*width/640 0); 
temprect right * (intXrightrect. right*wkhh/640.0); 

InvalidateRect(hWnd, Atemprect TRUE); 

Inval id ate R ect(hWod, <fcright_rect TRUE); 
InvalidateRect(hWnd, ftkft rect, TRUE); 

//open the input.dat file and write the data used by the fortran executable 

in -fopenTINPUT.DAr, ’V); 

fprintf(iii,”%d \n",NUMBER_PANELS); 

fprintflin,*%f \n\ideal_lift_coefficient); 

lprintf(in,"%f \n“,delta_alpha); 

fprintf(in,“%f \n“,thickness_choniratio); 

fclose (in); 


The FORTRAN executable is then run by a call to the WinExec function. The 
WinExec function receives a pointer to the command line of the program to be run and the 





window state in winch the program will be displayed. In tins case, a Windows™ Program 
Information File (.pif) which names the executable and describes how it is to be run is 
called by the WinExec function. This causes the FORTRAN program to be run in an 
iconified DOS window. The case is then terminated and execution of the FORTRAN 
executable continues in parallel with the Windows™ program. 

//mn the fortran executable in an incooified DOS window 

WinExecCncwvlmk pif, SW SHOWMINIMIZED); 

break; 

> 

The IDM_PRINT case is virtually identical to the VLL IDM_PRINT case, which 
is described in detail in section A.3. 

case IDM PRINT; { 

//this case calls the print dialog box 

PRINTDLG pd; //print dialog structure 

DOCINFO di; //document information structure 

int j; //page counter 

//if a print request is made using the main menu and the case has not been ran, 

// print a warning and deny the request 

if (irunflag) 

{ 

MessageBeep(MB_l CONEX CLAMATION); 

MessageBox(hWnd, "Must ran program prior to printing.", 

"WARNING!", MBJCONSTOP | MBOK | MBTASKMODAL); 

break; 

> 

//otherwise, process the request 

//set all structure members to zero. 

memset(&pd, 0, sizeof^PRINTDLG)); 
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di.cbSize « nzBoKDOONPO); 
di.IpczDocNune - "VLMLE"; 
di.tpczOuqwt - NULL: 

//uutialize the necessary PWNTDLG structure members. 

pdlStructSize - nzeofl[PRINTDLG); 
pdhwndOwner » hWnd; 

pdFlags - FO_RETURNDCJPO_HIDEPIUNTTOnLE|PD_NOSELECTION; 

pdnFromPafe ” I; 

pdnToPa*e- 1; 

pdaMinPage ' 1; 

pdnMaxPage “ 1; 


if (PrintDlg(&pd) !- 0) { 


StajtDoc(pd.hr>C,&di); 
for(j»0; j<pd.nCopies; j++){ 
StartPage(pd.hDC); 
paint_data_box(pd. hDC ); 
point_graphs(pd.hDC), 
EndPage(pd.hDC); > 


EndDoc(pdhDQ; 

DcletcDC(pd.hDQ; 


> 

if (pdhDevMode I- NULL) 

Gk)baIFree(pd.hDevMode); 

if (pd hDevNames != NULL) 

QobalFreefpdhDevNames); 

break; 

} 


The next case handles requests for the Geometry dialog box. As in the VLL 
WMCommandHandler function, the MakeProcInstance, DialogBox, and FreeProcInstance 
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functions are used to call and handle the dialog box. Alter the dialog box is terminated, 
the number of panels indicated by the user is tested. If the number Ms outside the range 
of five to 100, a warning message is printed and the dialog session is repeated by using the 
SendMessage function to simulate a main menu request for the Geometry dialog box. The 
screen is then caused to be repainted using the InvalidateRect function. Since the run flag 
is cleared in the Geometry dialog procedure, this causes the Current Variable Data to be 
updated to reflect the new input data and the rest of the screen to be cleared, 
case IDMGEOMETRY: { 

//this case calls the geometry dialog box 

dlgProc * (DLGPROC)MakeProcInstance((FARPRC)C)DlgProc, 
ghlnstance); 

DialogBoxGghlnstance, 'GEOMETRY*, hWnd, dlgProc); 
FrceProcInstance((FARPROC)dlgProc); 

//if the number of elements input by the user is outside the allowable, 

// print a warning, cause the dialog to be reinitiated 

if(NUMBER_PANELS>100||NUMBER_PANELS<5) { 

MessageBox(hWnd, "Number of Panels must be between 5 and 100". 

"WARNING!", MBJCONSTOP | MB.OK | MBTASKMOD AL); 

SendMessage(hWnd,WM_COMMAND,IDM_GEOMETRY,MAKELONG(0,0)); 

> 

//otherwise, cause the screen to be repainted and terminate the case 
InvalidatcRect(hWnd, NULL, TRUE); 

break; 

> 



i 


i 




• • 


ft* 


i 


ft 


The IDMJPARAMETERS case handles main menu requests for the Parameters 
dialog box. It calls the dialog box procedure and then causes the screen to be repainted 
with the same results as the IDM GEOMETRY case. 


t 


ft 


ft • 
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CMC IDM.PARAMETERS : { 

//this cmc cells the (comedy didos box 

oDgProc - (DLGPROQMakeProcInsttnceffFARPROQNextDIgProc, 
ghlnstanct); 

DialogBoxCghlmtaacc, “PARAMETERS", hWnd, dlgProc); 
FretfrochMUace((FARPROC)dl|Proc); 

InvaHdatcRcctfltWnd, NULL, TRUE); 
break; 

> 

The EDM EXIT case deletes the temporary data files, kills the timer, and requests 
that the Windows™ environment terminate the program. The IDM ABOUT case and the 
help feature cases work in the same way as their counterparts in the VLL 
WMC ommandHandler function. 

case IDM EXIT: { 

//this case deletes the temporary files and terminates the program 

if(access(" input dat*, 0) 0) unlinkf input dat"), 

iffaccessfoutputdat", 0) = 0) unlink("output.dat"), 

//remove the timer and request that the program be terminated by the 
// Windows environment 

KillTimer(hWnd,ID_TIMER); 

PostQuitMessagc(0); 

break; 

> 

care IDM_ABOUT: { 

//this care calls the About dialog box 

dlgProc - (DLGPROQMakeProcInstance((FARPROC)ABOUTDlgProc, 
ghlnstance); 
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ft 


ft 


ft 








DiaiogBox(ghIi«tance, "ABOUT", hWnd, dlgProc); 

FreeProcinstance((FARPROC)dlgPTOc); 

break; 

> 

/Abe next several cases respond to the help section of the main menu 
case IDMHELPGENERAL: 

{ MessageBox(hWnd, "The 2-D Vortex/source Lattice Program \ 
applies a vortex lattice method with Lighthill correction. It calculates \ 
and displays pressure coefficient on the typer and lower surfaces of a \ 

NACA 66 a-0.8 mean line foil with NACA 66 (Mod) thickness fonn.\n\n\ 

The user selects angle of attack relative to ideal angle of attack and \ 
ideal lift coefficient", 

"HELP", MB ICONINFORMATION | MB_OK); 
break; 

> 

case EDMHELPRUN: 

{ MessageBox(hWnd, "When TilejRun' is selected from the main \ 
menu, the program uses the Current Variable Data to calculate and display \ 
pressure coefficient on the upper and lower surfaces of the foil.\n\n\ 

The total lift coefficient is also calculated and displayed, \n\n\ 

This selection also causes a tecplot file, Vlmle-tec’, to be written \ 
to the directory where the program is resident.", 

"HELP", MBICONINFORMATION | MBOK ); 
break; 

> 

case IDMHELPPRINT: 

{ MessageBox(hWnd, "When TilejPrint' is selected from the main \ 
menu, the program invokes standard Windows Print and Print Setup Dialog \ 
boxes to allow the user to print the data that appears on the screen.", 

"HELP",MB ICONINFORMATION|MB OK); 
break; 

> 

-w~ 

case IDM HELPEXIT: 

{ MessageBox(hWnd, "When 'FilefExit' is selected from the main \ 
menu, the program is terminated.", 

"HELP", MBICONINFORMATION | MBOK ); 
break; 

} 

case IDM HELPELEMENTS: 

{ MessageBox(bWnd, "When 'OptionsjGeometry' is selected from the main \ 
menu, the user may select a number of panels to use.\n\n\ 

The number ofpanels must be between 5 and 100, inclusive. The default value \ 
for the number of nanels is 40.". 

"HELP", MB ICONINFORMATION | MB OK); 
break; 

> 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 
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case IDM_HELPTHICKCHORD : 

{ MessageBoxfhWnd, "When Options] Geometry' is selected from the main \ 
menu, the user may select a value for the thickness to chord ratio.\n\n", 

"HELP", MB ICONINFORMATION | MBOK); 
break; 

} 

case IDMHELPPARAMETERS: 

{ MessageBoxfhWnd, "When *Options|Parameters‘ is selected from the \ 
main menu, the user may select values for ideal lift coefficient and the \ 
angle of attack relative to the ideal angle of attack.\n\n", 

"HELP", MBICONINFORMATION | MBOK); 
break; 
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B.2 The VLMLE dialog and output functions. 

The dialog functions that initialize and handle input for the VLMLE dialog boxes 

are completely analogous to the VLL dialog functions described in section A.4. A 

complete listing of the VLMLE functions may be found in section B.4. 

The paint_data_box function, shown below, fulfills the same roles as the VLL 

paint_dala_box and print data box functions. This is made possible by calculating the 

scale factors for the width and height of the display internal to the function. The other 

significant difference between this function and the VLL functions is in the use of fonts. 

The VLL functions select the device default font into the device context and use it to draw 

the text output. VLMLE uses the system font. 

void paintdatabox(HDC PaintDC) 

{ 

/*M***«M*MMMM*«M*NHN*M*MMM**MM**MMMMMM*M**NM 

* declare variables that are defined in the vimle.c file and that * 

* will be used in this function * 


extern int NUMBERPANELS; 

extern float deltaalpha, ideal_lift_coefficient, thickness_chord_ratio; 

/************************************#****♦********♦**♦************** 

* Variable declarations 


4 

char 

bufler(120]; 

//buffer for character output 


int 

length; 

//length of character output 


float 

width. 

//scale factors for ensuring the 



height; 

// graphical output is scaled to 


// a 640 by 480 window 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width ■ (floaQGctDeviceCaps (PaintDC, HORZRES); 
height = (float )GetDeviceCaps (PaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 


« 
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iff(width/height)>(4 0/3.0)) 

width “ height* (4.0/3.0); 

J»ly 

height ■ widu.'t3.0/4.0); 


//enclose the current variable data box in a pair of rectangles 

Rectangle(PaintDC,(intXl •width/840.0),(intX20*height/480.0), 

(intX205*width/640.0),(intX45*height/4S0.0)); 

Rectangle(PaintDC,(intX 1.0*wkfch/640.0),(intX45 *height/480.0), 
(intX20S*width/640.0),(intX290*height/480.0»; 


//label the box 

length - sprintffbuffer, ’CURRENT VARIABLE DATA*); 

TextOut(PaintDC,(intX6*width/640.0), 
(intX2S*height/480.0), 
buffer, length); 

length = sprintffbuffer, Thickness form;*); 

TextOut(PaintDC,(intX10*width/640.0), 
(intX50*height/480.0), 
buffer, length); 

length = sprintffbuffer, *NACA-66(Mod)"); 

TextOut(PaintDC,(intX25*width/640.0), 
(intX70*height/480.0), 
buffer, length); 

length = sprintffbuffer, "Camber"); 

TextOut(PaintDC,(intX 10*width/640.0), 
(intX90*height/480.0), 
buffer, length); 

length = sprintffbuffer, "NACA a=0.8*); 

TextOut(PaintDC,(intX25*width/640.0), 

(intXl 10*height/480.0), 
buffer, length); 

length = sprintffbuffer, "Number of Panels:’); 

TextOut(PaintDC,(intX10*width/640.0), 

(intX 130*height/480.0), 
buffer, length); 

length = sprintffbuffer, *%d",NUMBER_PANELS); 
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TextOut(PliiitDC(foX25*width/&40.0), 

(intX 150*height/480.0), 
buffer, length); 

length - spriatffbuffo, ’Ideal Lift Coeff*); 

TextOnt(PlintDC,(intX 10*width/640.0), 

(imX 170* height/480.0), 
buffer, length); 

length - sprintffbuffo, "%5.3r,ideal_lift_coeflkieot); 

TextOut(PaiiiiDC,(utt)(25*width/640.0), 
(mtX190*height/480.0), 
buffer, length); 

length “ sprintftbuffer, *Alpha-Alpha(ideal):”); 

TextOut(PaintDC,(intX 10*width/640.0), 
(intX210*height/480.0), 
buffo’, length); 

length = sprintf(buffer, "%5.3r,delta_alpha); 

TextOut(PaintDC,(intX25*width/640.0), 
(intX230*heigbt/480.0), 
buffo, length); 

length = sprintftbuffer, "Thick/Cbord Ratio:"); 

TextOut(PaintDC,(intX10*width/640.0), 
(intX250*height/480.0), 
buffo, length); 

length = sprintftbuffer, ’%5.4r,thickness_chord_ratio); 

TextOut(PaintDC,(intX25*width/640.0), 
(intX270*height/480.0), 
buffo, length); 


The paint_graphs function in VLMLE, like the paint data box function, fulfills the 
same roles as its VLL counterpart functions. This is accomplished in the same way as it is 
in the paintjdatajbox function. The VLMLE paintjgraphs function also makes use of the 
system font rather than creating additional fonts. A complete listing of the punt jgraphs 
function is contained in section B.4. 
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B~3 The VLMLE FORTRAN program. 

The Windows™ version of VLMLE relies upon a modified version of the original 
FORTRAN VLMLE program to perform the required hydrodynamic calculations. This is 
d<me in favor of converting the FORTRAN code to the C programming language. 
Although the conversion would be relatively simple in the case of VLMLE, this program is 
a proof of concept project that lays the groundwork for the use of more complicated 
programs, such as PLL, as stand alone FORTRAN executables. The modified version of 
VLMLE is shown below. The modifications appear in bold type. 


PROGRAM VLMLE 

C- 

C 2-D Vortex/source lattice program with Lighthill's leading-edge 
C correction. Combines NACA-66(Mod) thickness form with NACA a=0.8 
C mean line at given angle of attack (measured relative to the 
C ideal angle of attack). The vortex lattice part of the computation 

C is identical to VLM2D.- 

C Written by: Justin E. Kerwin for 13.04 April 17,1995- 

C 

C Modified by David R. Beckett 4/27/95 
C -to accomplish lap mt by data file, iaputdat 
C -removed screen output 

C -added stat emen ts to write output data to a data file, output dat 
C 

PARAMETER! MSD=100, MSD2=MSD+2, MCUB=4*(MSD-1), NCL=1.NCR=1) 
PARAMETER! PKL141592653589793E00, HALF=0.5E00, RAD=PI/180.0 ) 
PARAMETER! ZERO-O.OEOO, ONE=1,OEOO, TWO2.0E00, ESL=€.0, ESR=0.0 ) 
DIMENSION XV(MSD),XC(MSD),A(MSD>tSD)J)X(MSD)3!MSD) > GAMMA(MSD), 

* WKAREA(MSD),IPIVOT!MSD),G!MSD).GEXACT!MSD),F(MSD), 

* YT(MSD2),UT(MSD),CPU(MSD2),CPL!MSD2),CUBIC!MCUB) 

C 

C—Opeu the iaput data file as uuit 2- 

OPEN(2JILE- , INPirr.DAr^TATUS- , UNKNOWN , 4 f ORM- , FORMATrED') 

C 


C-C om pute vortex aad control point positions and weight fractions - 

C 

C- Co u M u eut out the request for the number of panels aad associated read s t at em ent 

C 

C90 WRITE!* ,’0’ Eater aumber of paaels (Max:"44,’ V "4)0 MSD 
C READ!*,*) MC 
C 

C-Add a READ stateaseat that reads the number of panels from the iaputdat file 

C 


READO,*) MC 





I 




c 

f Ci—tit out At M loop Ail checks the validity of the MUM her wf panels dace 

C this is cawed ia the C code 

C 

C IF(MCLTJLOR.MC.GT.MSD) GO TO M 
DELC-PI/FLOAT(MC) 

DOIOON-IXC 

XV(N)"HALF'*(ONE-OOS((N-HALF)*DELC)) 

XC(N)«HALF*(ONE-COS(N*DELC)) 

DX(N)-PI*SQRT(XV(N)*(ONE-XV(N)))/FLOAT(MC) 

100 CONTINUE 


C-Compute influence coefficient matrix A(N,M) and invert- 

TOP-ONE/(TWO*PI) 

DO 110 N=1,MC 
DO 120 M-1JMC 
A(N>l>-TOP/(XV(M)-XC(N)) 

120 CONTINUE 
110 CONTINUE 

CALL FACTOR(A,IPIVOT,WKAREA,MC,MSD,IERR) 

C-Solve for GAMMA(X) FOR NACA A-8 MEAN LINE- 

C 

C-Coauaeat oat the requests for the ideal lift coefficient aad angle of attack and associated read 

C statements aad read the values from the inputdat file 

C 

C WRITE(*, WV)' Eater ideal lift coefficient—' 

C READ( V) CL 
READ(2,*) CL 

C WRITE(*,’(A4)’)' Enter Alpha-AlphaC>deal) (deg)...- ’ 

C READ( V) ALPHA 
READ(V) ALPHA 

CALL AEIGHT(MC,XV,XC,B.F,GEXACT) 

DO 130 N=1,MC 
B(N>=CL*B(N>ALPHA*RAD 
F(N)=CL*F(N) 

130 CONTINUE 

CALL SUBST(A,B,GAMMA,IPIVOT,MC,MSD) 


C-Sum circulation over chord and convert to vortex sheet strength— 

SUMG=ZERO 

DO140N-1.MC 

SUMG~SUMG+GAMMA(N) 

G(N)=*GAMMA(N)/DX(N) 

140 CONTINUE 

CLNUM«TWO*SUMG 

C 

C—Coauaeat out the sta temen t that writes the computed total lift coefficient to the screen 
C 

C WRITE(V(" Computed total lift coefffc»eot-",F8.4) r ) CLNUM 
C 

C-open the outputdat file as unit 3, write the computed total lift coefficient and number of panels 

C to the file 

C 
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OPE>K3^ILX- , OUTPUT.DAT'.STATUS"'UNKNOWN’ > FORM- , FORMATTED') 
WWTK3, , (F1«^)’) CLNUM 
WRTTK(3, , (1S)') MC 

C—Velocity due to thickness- 

C 

C-Coiwal out At wfwt far thfekacsa/chord ratio aad associated read lUtcacat aad read the 

C valac fraai the input, dst file 

C 

C WUTKVCA'S)')' Eater thfekacsa/chord ratio™ * 

C REAIKV) TOC 
READ(2,*) TOC 

CALL NACA66(MC,TOCRLE t XC,YT(2)) 

YT(l)-ZERO 
DO 200 N-1JMC 
UT(N)-ZERO 
DO210M-1.MC 

UT(N)-UTCN) + TOP*(YT(M+l}-YT(M))/(XC(N}-XV(M)) 

210 CONTINUE 
200 CONTINUE 

C—Interpolate thickness velocity to vortex points- 

CALL UGLYDK(MC,NCL,NCR,XC,UT,ESL,ESR, CUBIC) 

CALL EVALDK(MC,MC,XC,XV,UT,CUBIC) 


C-Compute surface velocities:First get value at leading edge- 

QU“ALPHA *RAD*SQRT(TWO/RLE) 

CPU(l)-QU**2-ONE 

CPL(1)-CPU(1) 

C-Next get remaining values over the chord- 

D0300N-1.MC 

FLH-SQRT(XV(N)/pCV(N>+HALF*RLE)) 
QU-(ONE+UT(N)+HALF*G(N))*FLH 
CPU(N+l)=QU**2-ONE 
QL={ONE+UT(N)-HALF*G(N))*FLH 
CPL(N+l)=QL**2-ONE 
300 CONTINUE 


C—Output the results in TECPLOT format- 

OPEN(l r FILE= I, VLMLE.TEC,STATUS=TJNKNOWN',FORM=TORMATTED') 
WRITE(1, , (A)') ’ ZONE 1 
WRITE(1,’(2F10.5)') ZERO,CPU(l) 

WRITEfl^lOJ)’) (XV(N),CPU(N+1),N=1JMC) 

WRITE(1, , (A)’) ’ ZONE' 

WRrrECl.'^lO.S)') ZERO,CPL(l) 

WRITE(1, , (2F10.5)') (XV(N),CPL(N+1),N=1,MC) 

CLOSE(l) 


rite the pressure coefficient to the outputdat file 

WRITE(3,'(3F10^) r ) ZERO,CPU(l),CPL(l) 
WR^T<3,'(3F10.5) , ) (XV(N),CPU(N+l),CPL(N+l)JM-lJHO 
C 

C—dose the iaputdat aad outputdat files 
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c 

CL0SK2) 

CLOSKp) 

C 

C—write a tammy flic, itelr tef, tedtcatteg that the FORTRAN CMca Uh te haa Maphtet the 
C tepte/atepet ftmetiaM and is ready te tentiaate esecatiaa 

C 

0«N(4^ILl> , VLMLILDNi:’^TATUS-'UNKN0WN'Jf0RM-'F0RMATTED') 

CLOSK4) 

STOP 

END 


The original VLMLE program was designed for the traditional terminal interactive 
input mode. The modified version substitutes file input for the terminal input. While the 
original version writes the computed total lift coefficient to the screen and generates a data 
file formatted for use with a graphics program, the modified version writes the output data 
to a file formatted for use by the Windows™ program. The modified version also retains 
the code that produces the formatted graphics file. 

The VLMLE.FOR program calls subroutines that solve a system of linear 
equations, calculate the offsets of a NSRDC modified NACA 66 with a parabolic tail and 
a leading edge radius, and evaluate the camber, slope, and vortex sheet strength of an 
NACA a=0.8 mean line. These subroutines were not modified for the purpose of this 
thesis and are therefore not included in this appendix. 
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APPENDIX B.4 


VLMLE program listings. 




B.4 VLMLE program listings. 

The VLMLE Windows™ application includes ten files. Listings for these files are 
included with this document as Ap^ndix B.4 on a 3.5 inch, IBM PC formatted, double 
sided, high density floppy disk. The files are saved in an ASCII text format which can be 
read using a DOS text editor or any word processor capable of reading DOS text files. 
The complete files of this and the other programs in this thesis are not included in the 
written text of the thesis in the interest of limiting the size of the document. This page is 
included with the listings in a file named README.TXT. 

The files included on the disk are described below. 

VLMLE.C -contains the WinMain, MainWndProc, WMCommand Handler, 

and dialog box functions. 

PAINTGRA.C -contains the paint jgraphs function. 

PAINTBOX.C -contains the paint_data_box function. 

VLMLE.DEF -the module definition file. 

VLMLE. RC -contains definitions of the resources used in the VLMLE program. 

HEADER. H -contains the #define and ^include statements for the VLMLE 

program. 

VLMLE.H -contains the definitions of the Windows™ identifiers. 

README.TXT -contains a copy of this page. 

The following files are not readable text files. 

VLMLE.ICO -describes the icon used to represent the program in the 

Windows™ Program Manager. 

VLMLE.PRJ -the project file read by the compiler. 

NEWVLMLE.PEF -a program information file used by the Windows™ environment 
to control how the FORTRAN executable is run. 
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C.l The FLL WinMaia, FrameWadProc, aad WMCcmmandHandler functions. 

* The PLL WinMain, FrameWndProc, and WMCommand_Handler functions are 
similar to the WinMain, MainWndProc, and WMCommandHandler functions in the 
VLMLE Windows™ application program. They are different, however, due to the 

* greater complexity of PLL and the application of the Multiple Document Interface. The 
discussion of these functions will focus on the new concepts necessary to understand the 

Windows™ PLL MDI application. 

4 

C.1.1 The PLL Winmain function. 

The WtnMain function is the main entry point for an for a MDI application, just as 

4 it is for non-MDI applications. The functions of the WinMain function for PLL are to 

register window classes for the frame window and the child windows, to create and 

display the frame and child windows, to initialize a timer for the frame window, to 

4 determine the size of the screen display area, and to initiate the main message loop. The 

WinMain function for PLL is shown below with discussion interspersed through the code. 

int PASCAL WinMain(HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

LPSTR lpCmdParam, int nCmdShow) 

4 { 

The WinMain function is declared in the same way as the functions described in Appendix 

A and Appendix B. Additional character strings are declared here for the purpose of 

4 

supplying different names for the four different child windows. 

char ProgNameQ - "MIT - Propeller Lifting Line Program"; 

char BladeViewcrName[] = "Blade Viewer”; 

char WakeViewerNaineQ »"Wake Viewer"; 

4 char OutputViewerNameQ - "Output Viewer"; 

char PlotViewerName[] «"Plot Viewer”; 

MDICREATESTRUCT mcs; 

MSG msg; 

4 The MDICREATESTRUCT is declared as follows: 

4 
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typedef (tract tagMDICREATESTPUCT { 

LPCSTR szClass; 

LPCSTR szTitie; 

HINSTANCE hOwner, 
int x; 
ial y, 
int cx; 
int cy, 

DWORD style; 

LPARAM IPanun; 

} MDIOUEATESTRUCT; 

The MDICREATESTRUCT structure is used to provide information about the class, title, 
owner, location, and size of a MDI child window. 

ghlnstance = hlnstance; 

if (IhPrevInstance) 

WNDCLASS wndciass; 


* 


The next several lines of code initialize the WNDCLASS structure with information about 
the frame window class and each of the child window classes, and register each of the 
classes using the RegisterClass function. This is done in the same way as described in 
Appendix A, except that the child windows are declared with the window class style 
CS_NOCLOSE. This prevents the child windows from being closed using the window 
system menu. 

//set up class information for the frame window class 


wndciass. IpszClassName 
wndclasslpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndciass. hlnstance 
wndclass.hlcoo 
wndciass. hCursor 
wndciass.hbrBackground 
wndciass. IpszMenuName 
wndciass. style 

//register frame class 

RegisterClassf&wnddass); 


-ProgName; 

= (WNDPROC) Frame WndProc; 

= 0; 

- 0 ; 

= hlnstance; 

- LoadlconOtlnstance.TLL ICON"); 

= LoadCursor(NULL,IDC ARROW); 

= (HBRUSH) (COLOR_WINDOW + 1); 

* "Main Menu"; 

- CS_VREDRAW | CS.HREDRAW |CS_DBLCLKS; 


• • 


//set up class information for the blade window class 


wndciass. IpszClassName 


= Blade ViewcrName; 
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wnddm lpfaWndProc 
wndclass. cbClsExtra 
wndclass. cbWndExtra 
wndclass. hlcon 

wdrimhCim 
wnddass.hbrBackground 
wndclass. lpszMenuName 
wndclass.style 


- (WNDPROC) MDIChildBladeWndProc, 

- 0 ; 

« sizeo/(LOCALHANDLE); 

- Lotllcoo(lilnsUnoc. "BLADE ICON*); 
-LoadCureor(NULL,IDC ARROW); 

- (HBRUSH) (CXX OR WINDOW + 1); 

-NULL; 

CS VREDRAW | CS HREDRAW (CS DBLCLKS (CS_NOCLOSE; 


//register MDI Made child class 

RegisterClasa(&wndclass); 


//act up dan information for the wake window class 


—Ip ffTliffK hiiif 

wndclass.lpfoWndProc 
wndclass. cbClsExtra 
wndclass.cbWndExtra 
wndclass. hlcon 
wndclass. hCursor 
wndclass. hbrBack ground 
wndclass. lpszMenuName 
wndclass. style 


- WakeViewcrNamc; 

- (WNDPROC) MDIChildWakeWndProc; 

“ 0 ; 

- sizeof(LOCALHANDLE); 

- Loadlcoo(hlnstance, "WAKE ICON"); 

= LoadCursor(NULL,IDC ARROW); 

- (HBRUSH) (COLOR WINDOW + 1); 

-NULL; 

= CS_VREDRAW | CS HREDRAW |CS DBLCLKS|CS NOCLOSE; 


//register MDI wake child class 

RegisterClass(&wndclass); 


//set up class information for the output window class 


wndclass. lpszClassName 
wndclass. lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlcon 
wndclass. hCursor 
wndclass.hbrBackground 
wndclass. lpszMenuName 
wndclass.style 


= OutputViewerName; 

- (WNDPROC) MDIChildOutputWndProc; 

= 0; 

- sizeof(LOCALHANDLE); 

= LoadIcon(hlnstance,"OUTPUT ICON"); 

= LoadCursor(NULL,IDC ARROW); 

- (HBRUSH) (COLOR WINDOW + 1); 

-NULL; 

= CS_VREDRAW | CS HREDRAW )CS_DBLCLKS|CS NOCLOSE; 


//register MDI output window class 
RegisteiClass(&wndclass); 


//setup class information for the plot viewer class 


wndclass. lpszClassName 
wndclass. lpfnWndProc 
wndclass.cbClsExtra 
wndclass. cb W ndExtra 
wnddass.hlcon 
wndclass.hCursor 
wndclass.hbrBack ground 
wndclass. lpszMenuName 
wndclass.style 


- PlotViewerName; 

- (WNDPROC) MDIChildPlotWndProc; 

- 0 ; 

- sizeof(LOCALHANDLE); 

- LoadIcon(hInstance,"PLOT_ICON"); 

- LoadCursor(NULL,IDC ARROW); 

- (HBRUSH) (COLOR WINDOW + 1); 

-NULL; 

- CS VREDRAWjCS HREDRAWjCS DBLCLKSjCS NOCLOSE; 
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After the clauses are registered, the frame window is created using the Create Window 
command. A timer is set such that a TIMER message is sent to the window 
procedure for the frame window (Frame WndProc) every 500 milliseconds. This timer is 
used to periodically check for the termination of PLL and PBD FORTRAN executables. 

//create frame window 

hFiameWnd ■ CreateWindow(ProgName,ProgName, 

WS OVERLAPPEDWINDOW1WS COPCHILDREN, 
CWUSEDEFAULT, CW USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


//create a timer for determining how often to check for FORTRAN PLL ran completion will 
SetTimer(hFranicWnd,IDTIMER,500,NULL); 

//create the child windows 


i • 


ifthFnuneWnd AA hMDIClientWnd) 

{ 

RECT currentrect; 

HDC hDC; 

TEXTMETR1C tm; 


» 7 

I 


A TEXTMETRIC structure, tm, is declared here for use in determining the size of the 
screen display area in terms of the size of the text. A TEXTMETRIC structure is declared 
as follows: 

typedef street tagTEXTMETRIC { /* tm */ 
int tmHeight; 
int tmAacent; 
int tmDeaceat; 
int tmlntenialLeadiiig; 
int tmEigyrran A«itiny 
int UnAveCharWidth; 
int tmMaxCharWidth; 
int tnWeigfat; 

BYTE tntltalic, 
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BYTE taUaderiiaed; 
BYTE tnStmckOot; 
BYTE traFintChar. 

BYTE tmLaatChar, 

BYTE ttaPrftafcOar, 
BYTE tnaBreakCbar, 
BYTE tmPitcfcAiidFjunily; 
BYTE tmCfcarSct; 
iat taOwfkm; 
iat teaDigitned A jpcctX; 
iat tmDigitizedAspectY; 

> TEXTMETRIC, 


A TEXTMETRIC structure contains information about the size and appearance of a font. 
If the program is successful to this point, the frame window is displayed and each of the 
child windows is created and displayed. The child windows are not created using the 
CreateWindow function, but rather are created by sending a WM MDICREATE message 
along with a pointer to a properly initialized MDICRE ATE STRUCT structure to the 
client window. The client window is the window area inside the frame window. It is 
where the child windows are displayed, and it is controlled by the Windows™ operating 
environment. 

All four child windows are created with the MDIS_ALLCHILDSTYLES style 
bits. The WS VSCROLL style bit is specified for the Output Viewer window so that it is 
created with a vertical scroll bar. 


ShowWindow(hFrameWnd, nCmdSbow); 
UpdateWindow(hFnuncWnd); 


mcs.szTitk 

mcs.szClag 

mcrhOwner 

mcrx 

mcs.y 

mcs.cx 

mercy 

mcs. style 


” B lade Viewer Name; 

■ BladeViewerName; 

- ghlmtanoe; 

-CW USEDEFAULT; 

-CW USEDEFAULT; 

-CW USEDEFAULT; 

-CW USEDEFAULT, 

- MDIS_ALLCHILDSTYLES; 


hBladeWnd - (HWND)SendMessage(hMDICliei)tWnd,WM MDICREATE.O, 

(LONGXLPMDICREATESTRUCOAincs); 







SktwWiadowQriUadeWnd, SW_SHOWNORMAL); 


■ca.xzTkk 

- Wake ViewerName; 

uflw 

- Wake ViewerName; 

■akOmer 

— "f**' 

■cu 

- CW USEDEFAULT; 

mct.y 

-CW USEDEFAULT; 

BKS.CX 

- CW USEDEFAULT; 

■cs.cy 

-CW USEDEFAULT; 

sacs, style 

-MdFs ALLCHBDSTYLES; 


hWakeWnd - (HWND)SendMessage(hMDIClieiitWnd,WM MDICREATE.O, 

(LONG)(LPMDFcREATESTRUCT)&mcs); 


» 


ShowWindow(hWakeWnd, SW_SHOWNORMAL); 


mcs.szTitle 

mcs.szClass 

mcs.hOwncr 

mcs.x 

mcsy 

mcs.cx 

mcs.cy 

mcs. style 


- Plot ViewerName; 

“ PlotViewerName; 

= ghlnstance; 

-CW USEDEFAULT; 

- C WUSEDEF AULT; 

« CWUSEDEFAULT; 

- CWUSEDEFAULT; 

- MDISALLCHILDSTYLES; 




» 


hPlotWnd - (HWND)SendMessage(hMDIClientWnd,WM MDICREATE.O, 

(LONGXLPMDICREATESTRUCT)&mcs); 


ShowWindow(hPlotWnd, SW_SHOWNORMAL); 


mcs.szTitle 

mcs.szClass 

mcs.hOwncr 

BBCS.X 

mcs.y 
BKS.CX 
mcs.cy 
mcs. style 


= Output ViewerName; 

- Output ViewerName; 

- ghlnstance; 

-CW USEDEFAULT; 

-CW USEDEFAULT; 

-CW USEDEFAULT; 

-CW USEDEFAULT; 

-MdFs ALLCHILDSTYLES1WS VSCROLL; 


» 


bOutputWnd - (HWND)SendMessage(hMDIClientWnd,WM MDICREATE.O. 

(LONG)(LPMDICREATESTRUCT)*mcf); 


ShowWindow(hOutputWi>d, SW.SHOWNORMAL); 


» 
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The next six lines of code are used to determine how may tines of text fit into the 
Output Viewer child window. This is done in support of the operation of the vertical 
scroll bar associated with that window. The first line gets a handle to the device context 
fi>r the window. The next line fills a TEXTMETRIC structure with information regarding 
the default font for the window. The height of an individual line of text is calculated by 
adding the tmHeight and tmExtemalLeading values from the structure. The device 
context is released using the ReleaseDC command. The GetClientRect function is then 
used to fill the current_rect RECT structure with coordinates of the upper left and lower 
right comers of the Output Viewer window client area. The last line calculates the 
integral number of lines of text that can be displayed in the client area of the Output 
Viewer window. 

hDC - GetDC(hOutputWnd); 

GetTextMetrics(hDC,&tm); 

LineHeight “ tm.tmHeight + tm.tmExtemalLeading; 

RekaseDC(hOutputWnd,hDQ; 

GetClientRect(hOitputWnd,&currentrect); 

LinesInWindow>(intX(cunent_rect.bottom-cuiTent_recttopVLineHeight); 

> 

The main message loop for a MDI application is nearly identical to that of a non-MDI 
application. The difference is the use of the TranslateMDISysAccel function. The 
TranslateMDISysAccd function translates child window accelerator keystrokes and 
returns a non-zero value if the function is successful. In this case, if the function is 
unsuccessful the message is translated and dispatched as usual by the TranslateMessage 
and DispatchMessage commands. 

while (GetMessagef&msg, NULL, 0,0)) 

{ 

if(!TnmslateMDISysAccel(hMDIClientWnd, &msg)) 

TranslateMessage(&msg); 

DupatchMessage(&iiisg); 

} 




} 


CU The PLL FrameWndProc function. 

The PLL FrameWndProc is similar to the MainWndProc functions for the VLL 
and VLMLE programs. It consists of a switch that processes four different types 
messages and refers unprocessed messages to a default procedure, in this the Windows™ 
default frame window procedure. The PLL FrameWndProc function is shown below. As 
with the WinMain function above, discussion is interspersed through the code of the 
FrameWndProc function. 


LRESULT CALLBACK export FnuneWndProc(HWND hWnd. UINT message, 

WPARAM wParam, LPARAM IParam) 


switch/message) 

{ 

case WM CREATE . { 


The first case is the WMCREATE case. A CUENTCREATESTRUCT 
structure contains a handle to the menu of a MDI client window and an unsigned integer 
identifier for the first child window. This case uses the GetMenu and GetSubMenu 
functions to initialize the hWindowMenu parameter and assigns the value 1000 as the 
identifier for the first child window. The GetMenu function receives a handle to a window 
and returns a handle to the menu of the specified window. The GetSubMenu function 
receives a handle to a menu with a pop up menu and an identifier for the pop up menu and 
returns a handle to the specified pop up menu. This is done here so that the names of the 
child windows will be added to the Window pull down menu on the main menu. 

CUENTCREATESTRUCT ccs; //structure containing information 

//abort a Multiple Document 
// Interface client window menu 
// and the window's first child 
//window 

//indalize the structure 



i 


4 
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I 4 



4 



4 
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I 4 
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ccs.hWindowKfaau - GetSubMcnu(GetMemi(hWnd), 3); 
ccs.idFtntOukl -1000; 


The WMCREATE case then creates the client window using the CreateWindow 

function, displays the window using the ShowWindow function, and returns zero to 

indicate that the message was handled by the function. 

//create the MDI client window and save a handle to the window 

hMDIClientWnd - CreateWindowC’MDlOJENT'.NULL, 

WS QflLDfWS CUPCH1LDREN]WS VISIBLE, 

0,0,0,0, hWnd, 0, 
ghlnstancc, (LPSTR)Accs); 

//display the window 


ShowWindowfhMDIClientWnd, SW.SHOW); 
return 0; 


The WM_COMMAND case uses the HANDLE WM COMMAND macro to refer menu 
selections or dialog box messages to the \VMConunand_Handler function. 


case WM COMMAND: { 

//this case refers menu selections to the WMCommand_Handler function 

return HANDLE_WM COMMAND(hWnd, wPanun, LParam, WMCommandHandkr); 


* 


case WMTIMER: { 
int j; 


FILE *in; 


//loop counter 
//pointer to a file structure 


The WM TIMER case is processed every 500 milliseconds in response to a message sent 
by the timer associated with the frame window. The case first checks for the existence of 
a file written by the PLL FORTRAN executable to indicate that the FORTRAN 
executable was called and completed its calculations. If the file is found to exist, the case 


201 




deletes the file and looks for, reads, and deletes a series of files written by the FORTRAN 
executable. 

IM the "alLdae” file exists, then the return value of access is 0 and the code ia the braces is execu t ed 
ifiacceaCaU dne’, 0) — 0) { 

//delete the all.dne file and read the files written by the fortran executable 
unlink(*ail.dne*); 

//pkxl and plot2.out contain the data to be plotted for c omp o n e n ts 1A 2, 

// glauertcoe contains the coefficients used for blade unloading if the 
// loading is zero at the tip and hub, unload.dat contains the information 
// used for blade unloading if the Made loading is non-zero at the hub 
// or tip, ear.dat contains the data necessary for matching ear, ductcir 
// contains a value for duct circulation that is used to update the 
// value p roposed by the program in the duct settings dialog box 

//if pkxl.out exists, open it, read it, and then delete it and set the draw_pkX_flag 

if(access("plotl.out\ 0)=0) { 

in = fopen{"plotl.out\ V); 

iead_plot_file(in); 

fdose(in); 

unlink( a plotl.out*>; 

drawjjkXflag-1; 

> 

//repeat the process for pkX2.out 

if(access(“plot2.out", 0)=0) { 

in - fopen("plot2.out". V); 
read_pkx_file(in); 
fclosefin); 
unlink(*pkx2 out’); 

> 
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The p ro gram lodes for plot 1. out and pk>t2.out, files containing data to be plotted on the 

Plot Viewer amen fix the first and second components respectively After the plot files 

have been reed the InvalidateRect function is used to cause the Output and Plot Viewer 

windows to be drawn with the output from the current PLL run. 

//cause the output and plot viewer windows to be paiated 

InvalidatcRect/hOutputWnd, NULL, TRUE); 

InvaiidateRect(hPiotWnd, NULL, TRUE); 

If the absrules.out file exists, the case declares two 16-bit file handles and uses than to 
append the ABS Rules calculation data in the absrule.out file to the stress calculation data 
in the stress, out file. The two files are temporary data files written by the PLL FORTRAN 
executable. 

//if absniles.out exists, append the data to stress, out and delete the file 
iffaccess/’absrules.out", 0)=0) { 

char * buffer, //pointer to a character buffer 

int num bytes; //number of bytes read by Iread 

HFILE in, out; //pointers to files 

//allocate memory for reading the files into 

buffer = (char *) malloc((max_buf_sz)*sizeof (char)); 

After allocating memory to store the absrule.out file data, the Jopen function is used to 
open the stress, out and absrule.out files. The Jopen function receives the address of the 
file to open and an access code and returns a file handle. In this case the stress.out file is 
opened with READJVRITE access since data will be written to the file. The absrules.out 
file is opened with READ access. The Jlseek function receives a file handle, a number of 
bytes to move, and a position in the file from which to move. The function moves the file 
pointer to the position specified, in this case the end of the stress.out file. The Iread 
function is then used to read in the data from the absrules.out file. The Iread function 
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receives a handle to a file, a buffer for receiving the data, and the length of the buffer. The 
function reads the file into the buffer and returns the total number of bytes that were read 
by the function. The _1 write function is then used to append the data in the buffer to the 
stress.out file by writing it at the end of the file. The Jwrite function receives a handle to 
a file, a pointer to the data to be written, and the number of bytes to write. The Jciose 
function is then used to close both files. 

out - lopenO stress, out", READWRITE), 

_llseek(out, OL, 2); 

in * -topenCabsrules.out", READ); 

num bytes= _lrcad(in, buffer, max buf sz), 

_lwrite(out, buffer, numbytcs); 

_lclose(in); 

_lclose(out); 

} 

The program then reads and deletes a series of temporary data files vnitten by the 
FORTRAN executable. Some of the files are read by functions written specifically for this 
application and the rest are read by opening the files with fopen function calls, reading the 
formatted data with fscanf function calls, and closing the files with fclose function calls. 
The glauert.coe file contains information about blades that are unloaded using alterations 
to the sine series coefficients that describe the circulation distribution. The unload.dat file 
contains data for the other cases. The ear.dat file contains the expanded area ratio for 
each component. The duct.cir file contains a value for duct circulation. The damp.val file 
contains a damping value used during the iterative process of calculating duct circulation. 

//if glauert.coe exists, open it, read it, and then delete it 
iffaccessCglauertcoe", 0)=0) { 


§ 
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in - fopeaf glaueftcoe", "r"); 


read_glauert_file(in); 

fckMcQn); 

unlinkCglauedcoe"); 

} 

//if unkind dal exists, open it, tend it, and then delete it 
if^accessCunload.dat", 0)*—0) { 

in = fopenC unload, da;", "r"); 

read_unload_dat_file(in); 

fclose(in); 

unlinkfunload dat"); 

> 

//if ear.dat exists, open it, read it, and then delete it 
if(access(“ear.dat", 0)=0) { 

in = fopen("ear.dat", "r"); 

//loop through the components and read the ear data 
foc(j=0'j<LDEVa++) 

fscaniTin,"%f ",&EAR[j]); 
fclose(in); 
unlink("ear.dat"); 

> 

//if duct dr exists, open it, read it and then delete it 
if(acccssC’ductcir", 0)—0) { 

in - fopen("duct.cir", "r"); 

fscanfljin, "%T ,&esti matedductcirculation); 

fdose(in); 

unlinkfduct.cir"); 
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//if damp.val exists, open it, read it, and then dekte it 
iffaccessfdamp.var, 0)-H>) { 

in - fopenCdamp.vaT, V); 
fscanfl'in,"%r,Adamping); 
fdosefin); 
unlinkCdamp.val"); 

> 

If the optimdat exists, the program opens the file and reads the data character by 
character into a local character array using the getc function. The data is then presented 
to the user in a message box. The getc function receives a pointer to a file structure and 
returns the next character from the stream converted into an integer value. 

//check for the optim.dal file, which contains the optimization results for 
// the optimize rpm or diameter case, print the results in a message box 
//and delete the file 

ifiaccessCoptim.dat" ,0) «- 0) { 

char suiog[240l=”; //string for storing opt result 

int nextcharO, //integer for reading data 

// character by character 

i*0; //character counter 

//open the optim dat file 

in * fopenCoptim.dat", "r"); 

//read the string character by character until reaching end of file 
nextehar - getc(in); 
whilc(nextchar!-EOF){ 
rtringlij-nextchar, 



nextchar - getc(in); > 


//pot in a terminator at the end of the string 


■tringlij—%0*; 


//doae and delete the optim-dat file 


fckwe(in); 


unlinkCopdm.dat*); 


//print the results if a MessageBox 


MBTASKMODAL); 


McssageBoxChWnd, string, "OPTIMIZATION RESULT". 

MBICONINFORMATION | MB_OK | 


The case then checks for the existence of a file written by the PBD FORTRAN executable 
to indicate that a PBD run is complete. If the file is found to exist, the case deletes the 


file, sets a flag that indicates that PBD has been run, and if there is no PLL output, adjusts 


flags that control the data drawn on the Output ami Plot Viewers so that the PBD data is 


displayed. The case then returns a zero value to indicate that the message was handled. 


//if the "pbddne" file exists, delete it and check if there is pU data to 
//plot, if there is not then set the plotjrage to 4 so the pbd plots will 
// be displayed on the plot viewer and set the output flag to pbdlctq so the 
// pbdoutktq file will be displayed on the output viewer 


if(access(”pbd.dne", 0) — 0) { 


//delete the pbddne file, adjust the draw plot and output flags and set the 
// pbd flag 


unlinkCpbddne"); 


ifl!draw_pkx_flag) plot_page«4; 


iflaccessCsummaiy.out", 0)!~ 0) output_flag = pbdktq; 


//set the pbd_flag to indicate that pbd has been run 


pbd_flag« 1; 


* 


> 










The WM_DESTROY case handles requests made to exit the program by methods other 
than the FilejExit selection on the main menu. It responds by sending a IDMJEXIT 
command to the WMCommandHandier function and returning zero to indicate that the 
message was handled. 

case WMDESTROY. { 

//this case handles requests to exit the program made by methods other than 
//the main menu 

ScndMes«age(hWiid,WM_COMMAND,IDM_EXn',MAKELONG(0,0)); 
return 0; 

> 

} 

//refer messages not handle by this frame procedure to the Windows default 
//frame procedure 

return DefFrameProc (hWnd, hMDIClientWnd, message, wParam, IParam); 

> 

C.1.3 The PLL WMCommand Handier function. ~*' 

The WMCommand_Handler function for PLL is very similar to the VLMLE and 
VLL WMCommand Handier functions. It is diown below in a series of segments, with 
narrative discussion of the code interspersed throughout the segments. 

The function consists mainly of a switch that handles requests made by the user 
with the main menu. 

void WMCommand Handkr(HWND hWnd, int id, HWND hwndCtl, UINT codeNotify) 

{ 




(Witt* (id) 

{ 

caselDM RUN PBD; { 


The IDM_RUN_PBD case uses the OPEN common dialog box. First, a series of 
character strings used to initialize the dialog box and return information such as the title of 
the file selected by the user and the complete path of the file are initialized. A destination 
file, PBDADMIN.NAM, is declared. The file returned by the dialog box is copied into 
this file. The PBD FORTRAN executable is coded to use this file title as die main 
administrative file. 


//this case handles main menu requests to run M1T-PBD 

OPENFILENAME ofh; 

char szFik[256J» ,, V0\ 

szFikTitle(256], 

szFilterfl” 

•PBD Files (♦.PBD)V0*.PBDV0* t 
szDstQ - "PBDADMIN.NAM"; 


//opeafilename structure used with 
// GetOpenFileName function 
//name and location of the file 
//to open 

//name of file to open 
//filter for list box 

//file to copy selected file into 


The case also declares two OFSTRUCT structures. An OFSTRUCT is used to return 
information regarding a file that has been opened by a call to the LZOpenFile function. In 


this instance a source and a destination structure are declared. 


open file 


OFSTRUCT ofStrSic, 


//source and destination 


ofStrDest; 


HFTLE hfSrcFUe, 
hfDstFile; 


//structures 


//source and destination file 


The IDM_RUN_PBD case then deletes the previously existing CURRPBD.PBD 
and PBDADMIN.NAM files. The CURRPBD.PBD file is written by PLL using the 
current settings in the PBD Settings and PBD Skew/Rake Settings and the current PLL 
project and is made available to the user in the SELECT PBD ADMIN FILE dialog box. 
IfaB-sphne input file exists for the component indicated by the pbd_component variable 


n 









and a velocity file has been written for the current project, the write_pbd_admin_file 

function is called. This function writes the CURRPBD.PBD file. 

//deiele pre-existing currpbdpbd, the pbd admin fik written by PLL, and 
// p b d a dhain.nam, the flic that the selected admin file i« copied into for 
//use by PBD 

«aJink(" CURRPBD.PBD'); 
unliakCTBDAOMIN.NAM*); 

//if a project is currently opco and blade and velocity files are available, 

// write a pbd admin file (currpbdpbd) 

it^prpjcct_flasAA(acces*("cunpbdlbsn', 0) — 0)AA(pbd_component“O)&A 
(accessfcunpbdvel”, 0) “ 0)) writc_pbdadmin_filcQ; 

if(pnyect_flag&A(access(*cuiTpbd2.bsn*, 0) “ 0)&A.(pbd_coniponent” 1 )&& 
(accessCcunpbdveT, 0) == 0)) write_pbdadmin_fileO; 


The case then initializes the OPENFILENAME structure, ofii. The initialized 
variables include the size of the OPENFILEN AME structure in bytes, the handle of the 
window that owns the dialog box, the address of the filter used for selecting files to 
display in the list box, the address of strings for receiving the file title and path and the size 
of those strings, the title of the dialog box, and flags that govern the operation of the 
dialog box. The OFNFILEMUSTEXIST flag causes the dialog box to require that the 
selected file must exist. The OFN HIDEREADONLY flag hides the read only check box. 
//initialize the OPENFILEN AME parameters 


memsetf&efn, 0, sizeof(OPENFILENAME)); 

l 


ofh.lStnictSize 

ofh.hwndOwner 

ofhlpstrFilter 

ofh.lpsbfiie 

ofn. nMaxFUe 
otfn.lp(trFileTitte 

ofo. lpetrTitle 
ofanMaxFikTitle 
ofn.FUgs 


- sizeoflOPENFILENAME); 

- hWnd; 

■ szFilter. 

■szFile; 

- sizeaffszFile); 

- szFileTitle; 

- "SELECT PBD ADMIN FILE"; 

* sizeoffszFUeTitle); 

- OFNFTLEMUSTEXIST)OFN_HIDEREADONLY; 


The GetOpenFileNaxne function is then used to call the dialog box. If the dialog box 
terminates successfully, the LZOpenFile function is used to open the file returned by the 






dialog box. The LZOpenFile function receives the address of the filename of the file to be 
opened, a ponder to • OFSTRUCT, and an unsigned integer which indicates the required 
action. The function opens for reading or creates and opens the file as indicated, fills the 
OFSTRUCT, and returns a handle to the file. The OFSTRUCT structure contains 
information including the length of the file in bytes and the path of the file. 

//if die iii»ing if n fxj successfully to a file, the c od e in the braces 

if (GctOpenFileName(Aofa)) { 

//open the source file 

hfSrdFiie - LZOpenF ile(ofh. IpsttFikTitIc, AofStrSrc, OF_READ); 

//create the destination file 

hfDstFile ™ LZOpenFile(szDst, AofStrDcst, OFCREATE); 

After the source and destination files are open, the LZCopy function is used to copy the 
file returned by the dialog box to PDDADMIN.NAM and the LZClose function is used to 
close both files. The LZCopy function receives handles to the source and destination files 
and returns the size of the destination file in bytes. The LZClose function receives the 
handle of the file to be closed and does not return a value. 

//copy the source file to the destination file 

LZCopyfhfSrcFile, hfDstFile); 

//dose the files 

LZCIose(hfSicFile); 

LZClosefbfDstFile); 

The IDM RUN PBD case then deletes previously existing PBD output files using 
the ddete files function and calls the PBD FORTRAN executable using the WinExec 
function. The PBD program information file, pbd.pif causes the pbdfort.exe program to 
be run in a window and the SW_SHOWMINIMIZED flag causes the window to be 
crested and displayed in an iconified state. The case does not wait for the termination of 
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the FORTRAN executable, but rather uses the break statement to terminate the case 
allowing the user to continue to use the application while the FORTRAN executable runs 
in the background. The user may also elect to maximize the window in which the 
FORTRAN executable is running and observe the screen output provided The screen 
output from the original version is left largely intact and will look very familiar to 
experienced PLL users. 

//delete pre-existing pbd output files 

ddete_filee(pbd_files); 

//run the pbdfortexe fortran program in an iconified window 

WinExec(*pbd.pir,SW_SHOWMlNIMIZED ); 

> 

break; 

} 

The IDM_M1TPLLHELP case starts the Windows™ MIT-PLL Help program. 
The program is started using the WinExec function, and displayed in its default window 
size using the SWSHOW window state. If the WinExec function is unsuccessful, it 
returns a value less than 32. The case checks the return value of the WinExec function 
and if the value is less than 32, changes to the \hdp subdirectory and attempts again to run 
the MIT-PLL Help program. If the WinExec function is again unsuccessful, an error 
message is printed. In either case the directory is changed back to the original directory 
using the chdir function. The chdir function changes the current working directory to the 
spe ci fed path and returns negative one if unsuccessful and 0 if successful. 

case IDM_MITPLUHELP: { 

//Ibis cate handles main menu request for the help program 

//if the WiaExec Amedeo is imsacccnftU, change to the \hdp directory and 





//toy af*a 

j^MaExec( <> pBhelp.exe a l SW_SHOW)<32){ 

ctoduOhdp-); 

//if WiaExec is again unsucccasfid, priat an error nwangr and change back 
// to the original directory 

if (WiBExecTpUhdp.cxe , ,SW_SHOW)<32) { 

MessageBcepCMBICONEXCLAMATION); 

MessageBox(hWnd, "Aa error occurod when starting \ 
the MIT-PLL Help Prognun.'.'ERROR!*, MB.ICONSTOP | MB_OK | MBTASKMODAL); 

} 

cMifC--"); 


break; 


> 


} 


The IDMOPENPROJECT allows the user to select and open a pre-existing PLL 
project file using the OPEN common dialog box. As in the IDM_RUN_PBD case, 
character strings and an OPENFILENAME structure are declared for use with the OPEN 


common dialog box. Additionally, a character string, buffer, a loop counter, M, and a 
pointer to a file structure, *in, are declared, 
case IDMOPENPROJECT: { 


OPENFILENAME oth; 
char szFilel256KVD\ 
szFUeTitle{2561, 

azFitoerO” *HU Files (*.PRJ)V0* JEW, 
bufler(120]; 


//openfilename structure used with 
// GetOpenFileName function 
//name and location of the file 
//to open 

//name of file to open 
//filter for list box 
//buffer for writing output 


fad M; 


//loop counter 


FILE *ia; 


//pointer to a file structure 


//initialize the OPENFILENAME p aram e te rs 
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0. «zwfl:OPENFILENAME)); 


ofklStractSize- 


ofklpatiFito- 
aALBMaxFUe- 
dklpatiFikThk K 
ofn.nMaxFileTitle 1 
ofitFlat^ 


rizeod(OPENFTLENAME); 

hWad; 

sdFiher, 

szFile; 

azeodfizFik); 

szFikTitk; 

azeaf(gzFiteTitk); 

OFN_FILEMUSTEXIST)OFN_HIDEREADONLY; 


//if the dialog it used successfully to choose a file, execute the code ia the braces 
if (GctOpeaFik:Name(&ofa)) { 

AfW the OPENFILENAME structure is initialized, the GetOpenFileName function is 
to call the Open dialog box. If the function does not return successfully, the bulk of 
code is skipped and the case is terminated. If the function does return successfully the 
initialize function is called and the projectflag variable is set to indicate that a project is 
open. The initialize function is used to reinitialize global variables that are initialized when 
the MTT-PLL program is started. 

//ran the initialize function to initialize the global variables 

initializeO; 

//set the project flag to indicate that a project is now open 
projectflag - 1; 


» • 


The case then opens the file returned in the OPENFILENAME structure, writes the 
filename to the PROJECTFILE character string variable, reads the project file by calling 
the read_project_file function and closes the project file. 

//open the project file returned in the OPENFILENAME structure 
in ” fopcnfofh.lpstrFileTitle.'r'O; 

//write the file name into the PROJECTFILE variable 

sprintf(PROJECTFILE, "%s*,ofh.lpstrFileTitle); 

//read the project file, and dose the file 
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readjwojectJUe(tn); 
fcloae (in); 

The IDM_OPEhffROJECT case then opens the input file specified in the project 
file. If the input file does not exist or for some other reason can not be opened, a warning 
is printed, the project.fiag variable is cleared, and the case is terminated. Otherwise, the 
input file is read by calling the read Jnput Jile function and closed using the fclose 
function. 

//open sad read the input file, prim an error message if unable 

if ((in - fopen/INPUTFILE, NULL) { 

Messa*eBeep(MB_ICX)NEXCLAMAnON); 

MessageBox(hWnd, 'Unable to open input file.”, 

-ERROR!", MBJCONSTOP | MB_OK | MB_TASKMODAL); 

//dear the projedflag to indicate that a project is not open 

projectflag - 0; 

break; 

} 

read_input_filc(in); 

//dose the input file 

fcloae(in); 

The case now uses a for statement to loop through the components, where LDEV is an 
integer variable equal to one for the single component case and two for the multiple 
component case, and read die blade and wake input files specified in the input file. If for 
some reason any of the input files can not be opened, a warning is displayed in a message 
box, the projectJflag is cleared, and the case is terminated. The read_blade_file and 
read_wake_file functions are used to read the blade and wake input files. The minimum 
chord/diameter values for each component are set equal to the root chord/diameter values 
supplied in the blade files at the end of the loop. 





ft 


//loop through the com po nents and read the blade and wake files 
6x(lMM<LDEVM++H 

if ((in - fopca(BLDIN[M*21), *1-))— NULL) { 

//print aa error message if unable to opes the Made file 

Mf«fffVrp (MB_ICONEX(XAMATION); 
sprintfibufier, "Unable to open blade file #%d.*,M+l); 
MeasageBox(hWnd, buffer, 

"ERROR!", MBJCONSTOP | MBOK | MBTASKMODAL); 
//dear the projedflag to indicate that a project is not open 

projectflag - 0; 

break; 

> 

read_blade_fik(in,M); 

tdoee(in); 

if ((in - fcpen(WKIN[M*21], "r*))— NULL) { 

//print an error message if unable to open the wake file 

MessageBeep(MB_ICONEXCLAMATION); 
sprintf(buffer,"Unable to open wake file #%d.\M+l); 
McssagcBox(hWnd. buffer, 

"ERROR!", MBJCONSTOP | MBOK | MB_TASKMOD AL); 
//clear the prpjectflag to indicate that a project is not open 

projectjlag - 0; 
break; 

} 

rcad_wake_file(in>f); 

fdoee(in); 

HUBCHD(M] - XCHD(0][M]; 

> 




ft 


ft 


ft 


ft 


ft 


ft 


ft 


ft 
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If the project has more than one component, the contraction ratio of the wake is 
set baaed on the same logic as is used in the original PLL version. This is done for the 
purpose of initializing the manual contraction ratio in the Default Settings dialog box with 
an appropriate value. 

//if there is more than one component, set the contraction ratio 
if(LDEV>l) { 

fflCimage.duct— 1 Y) 

CONRAT -1.0; 


if(£abs(RPM[2])<0.01){ 


ifl[XDLOC[0]>XDLOC( 1 ]) 
CONRAT -1.0; 


CONRAT *0.83; 


CONRAT-0.83; 


Since a new project is now open, the pbd flag variable is cleared to indicate that 
the current PLL project has not yet been run in PBD. The position of the vertical scroll 
bar is reset to the top by setting the ScrollPos integer value to zero and calling the 
SctScroUPos function. The Set ScrollPos function receives the handle of the window with 
the scroll bar that is to be positioned, a flag that indicates in this case that the vertical 
scroll bar is the bar that is to be operated on, the position of the scroll box inride the scroll 
range, and a logical flag that indicates in this case that the scroll bar is to be repainted. 

The function causes the scroll box, also known as the thumb, to be moved to the indicated 
position and causes the scroll bar to be repainted. 


mi 





I 


//dear the pbd flag since the currently open project has not been run in PBD 
pbdflag - 0; 

//reset the vertical scroll bar position 
Scroll_Pos ■ 0; 

SctScrollPos(hOutputWnd, SB VERT, ScroU_Pos, TRUE); 

As a final action, the case uses the InvalidateRect function to cause the four child 
windows to be repainted. This causes the new blade and wake data to be displayed and 
causes the Output and Plot Viewer windows to be cleared. The case is then terminated. 

//cause the screens to be repainted 

InvalidateRect(hBladcWnd, NULL, TRUE); 

InvalidateRectfhWakeWnd, NULL, TRUE); 

InvalrdateRectfhOutputWod, NULL, TRUE); 

InvalidateRect (hPlotWnd, NULL, TRUE); 

} 

break, 

> 

The IDMEDITBLADEWAKE case is identical in function to the 
IDM M1TPLLHELP case. In this case the MTT-PLL Editor program is started in 
response to the Edit|Biade/Wake selection on the main menu. 

case IDM EDITBLADE W AKE : { 

//this case handles main menu request for the edit program 
//if the WinExec function is unsuccessful, change to the Vedit directory and try again 
if(WinExec("pIledit.exe",SWSHOW)<J2){ 
chdirfVedit”); 

//if WinExec is again unsuccessful, print an error message and change back 
// to the original directory 

if (WinExecCpUedit.exe*,SW_SHOW)<32) { 

MessageBeep(MB_ICONEXCLAMATION); 
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MessageBoxChWnd, "An error occured when \ 
starting the MTT-PLL Editor Program.', 

"ERROR!*, MBJCONSTOP | MBOK | MB_TASKMODAL); 


chdiif..’); 


The IDMEDITPROJECT checks the project flag and prints a warning message if 
the user selects Edit|Project Settings from the main menu with no open project. If a 
project is open, the case tests LDEV and calls the appropriate dialog box based on the 
number of components in the project. 


case IDM EDITPROJECT: { 

DLGPROC DlgProc; 
procedure 

//if no project is open, print a warning message and terminate the case 
ifl!projectjflag){ 

MessagcBeep(MB_ICONEXCLAMATION); 


MessageBoxfhWnd, "A project must be open in order to be edited.”, 
’WARNING!*, MBJCONSTOP 1 MB_OK | MB_TASKMODAL); 


//pointer to a dialog 


//call the appropriate Project dialog box, depending on the number of components 
if(LDEV <2){ 

DlgProc - (DLGPROC)MakeProcInstance((FARPROC)Project 1D lgProc, ghlnstance); 
DialogBoxCghlnstance, "PROJECT 1", hWnd, DlgProc); 



i < 


» < 
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DlgProc - (DLXjPROC)M«keProcIi>iUncc((FARPRC>C)Project2DlgProc, ghlnstancc); 


Diak>gBox(ghInstanrr:, TROJECn*, hWnd, DlgProc); 


FreePnxInsUnce((FARPROC)DlgProc); 


break; 


The IDMTTLE, IDMCASCADE, and IDMARRANGE cases respond to the 
WindowfTile, WindowjCascade, and Window]Arrange Icons selections on the main menu. 
They use the SendMessage function to send the appropriate message to the MDI Client 


Window to cause the child windows to be tilt i or cascaded, or the iconified windows to 


be arranged. 


case IDM TILE; { 


//send a message the the MDI client window to tile the child windows 


SendMessagefhMDIClientWnd, WM_MDITILE, 0,0L); 


break; 


case IDM CASCADE: { 


//send a message the the MDI client window to cascade the child windows 


SendMessage(hMDIClientWnd, WMMDICASCAD&. 0,0L); 


IDM_ARRANGE; { 


//send a message the the MDI client window to arrange the child window icons 


SendMessagefhMDIClientWnd, WMMDIICONARRANGE, 0,0L); 


i 4 
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The IDM_RUN case responds to main menu FilcjRun requests. The 
OPENFILENAME, character, HFILE and OFSTRUCT declarations are made to support 
the use of the OPEN common dialog box in selecting a non-axisymmetric stator file if 
necessary. The DLGPROC variable is used for calling dialog boxes necessary for 
executing a variety of runtime options, in addition to calling the Runtime Settings dialog 
box. A pointer to a file structure is also declared, as well as a number of loop counters 
and a dummy variable for testing the value of the circulation distribution sine series 
coefficients. 


case EDMJRUN: { 

//this case handles to run MTT-PLL 

DLGPROC DigProc; 
procedure 

OPENFILENAME ofo; 


char szFae[256J-"\0\ 
szFikTitle[256], 

szFilterO* "STA Files (*. STA)\0*.STAV0", 
szDstQ = "STATOR.DAT; 


OFSTRUCT 

open file 


ofStrSrc, 

ofStrDest; 


handles 


HFILE hfSrcFile, 
hfDstFile; 


int k, M, i j, 

circchectH); 


FILE *out; 


//pointer to a dialog 


//openfilename structure used with 
// GetOpenFileName function 
//name and location of the file 
//to open 

//name of file to open 

//filter for list box 

//file to copy selected file into 

//source and destination 

//structures 

/source and destination file 


//loop counters 

//dummy integer for checking for 
// non-zero circ distribution 

//pointer to a file structure 


The case first tests the project Jflag. If no project is open a warning message is displayed 
and the case is terminated. If a project is open, the Runtime Settings dialog box is then 
called and the user is allowed to select from a variety of run time options. 
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ifitproject.flag) ( 

M—ageBcqi(MB_ICONEXCLAMATION); 

Me—yBoxfbWnd, *A project must be opes in order to be ran.", 

-WARNING!', MBICONSTOP | MB09C | MB_TASKMODAL); 

break;} 

EHgProc - (DLGPROC)MakeProcInsUnce((FARPROQRunTiincDlgProc, ghlnstence); 
DialogBoxfghlnstance, -RUNTIME-, hWnd, DigProc); 
FreeProcInst»nce<(FARPROQDIgProc); 

When the Runtime Settings dialog box terminates, the case tests the run_ok_flag and 
terminates the case if the user selected the CANCEL button. If the OK button was 
selected, the delete_files and unlink functions are used to delete pre-existing temporary 
data files. 

//if the cancel button is selected on the runtime dialog box, terminate the case 

if(nin_ok_flag) break; 

//delete pre-existing temporary data files 

delete_files(pU_fites); 

unlink("curTpbd.err"); 
unlink ("currpbd. ebs"); 
unlink("optim.dat"); 


The case then sets variables that control the way data is displayed in the Wake, 
Output, and Plot Viewer windows. The Scroll Pos variable was discussed previously. 
The componentflag variable determines which wake file is diplayed in the Wake Viewer 
window. The draw_plot_flag variable determines whether or not plots will be drawn in 
the Plot Viewer window. The outputflag variable determines which output page is 
displayed in the Output Viewer window. The plot_page flag variable determines which 
page will be plotted in the Plot Viewer window, and the plotcomponentflag variable 
determines whether component one or two or both will be displayed. 

//re-initialize the flags that control output and plot viewer plotting 
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// 


the output and plot viewer* to be redmwn 


\ 
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SaoB.Fot-0; 

com p onen t JBag-O; 

draw_plot_flag-0; 

outputJbg-O; 

plotjMge-O; 

plot_co«npcneat_flaf-0; 

The scroll bar position is then reset and the Output Viewer and Plot Viewer windows are 
cleared since the data displayed there is no longer applicable. 

SetScrollPo«(hWnd, SB VERT, Scrolljte, TRUE); 

InvalidateRcct(hOutputWnd, NULL, TRUE); 

InvalidatcRect(hPlotWnd, NULL, TRUE); 

The IDM RUN case now tests the circulation_optimization_flag variable to 
determine if the user has chosen to optimize circulation. If not, the case uses a for loop to 
check the absolute values of the circulation distribution from the blade file(s) to ensure 
that a non-zero distribution has been supplied by the user. If the user supplied a zero 
circulation distribution then the circulation j>ptimization_flag is set by the program and a 
warning message is displayed. 

//if the circulation optimization flag is not set, ensure that a non-zero 
// circulation distribution has been input for both components, otherwise 
//set the flag and print a warning 

if(!circulation optimization flag) { 

//loop through the components 

fi3riM-0>l<LDEVJvl-H-) 

//loop through the radii for each compo n ent 

for(k-0^<MRPINIM];k-H-) 

//increment die circcheck variable 

if(fhbs(XG[k][M])Xlel) 

circ_check++; 

if(ldre_check){ 
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circulation optimization flag ■ I; 

M cw^eB eep(MB_ICONEXCLAMATK)N); 

t VwjrnmrQiWnrt. "Blade circulation input must be non-zero \ 
or Circulatiou Optimizitioo mutt be selected. Circulation Optimization now \ 

flotodod.* 

"WARNING!", MBJCONSTOP | MB__OK | MB_TASKMODAL); 

> 

} 

The case proceeds to check a variety of run time options and perform the 
necessary actions. The first is the option to use the current blade data as input data. If 
this option is selected, the program tests to see if the project is a ringed propeller. If it is, 
a warning message is printed since this option is not currently available for ringed 
propellers. 

//if the reset blade data option is selected and the propulsor is ringed, print a warning 

if(nse_currJUade){ 

if(ringedjnropeller(01 w YO{ 

MessageBeep(MB_ICONEXCLAMATION); 

MessageBoxfhWnd, "The reset blade data option is not available for \ 
ringed propulsors. Continuing with normal ran.”, 

"WARNING!", MBJCONSTOP | MBOK | MBTASKMODAL); 

} 

} 

The case then calls the write misc files function. This function writes a number of short 
data files based on the current project settings. The files are used to provide input to the 
PLL FORTRAN executable. 

//write the misc output files that provide input to the fortran executable 

writejaiscfilesO; 
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If the user has elected to evaluate a non-axisymmetric stator, the STATOR. DAT file is 
deleted if h exists and the Select Stator File dialog box is called to allow the user to select 
a stator file. 


//jftec toiahsatonoaatoiymatotrirslaior selection is asade on the runtime 
// dialoe hex, sDow the saer to select a data file 

if(eval_aonaxi_stalor) { 

//delete the pre-existing data file 

unlinkCSTATOR-DAT*); 

//initialize the OPENFILENAME parameters 


memsetf&aAi, 0, sizeoflOPENFILENAME)); 


ofblStrod Size 

otefawndOwner 

ofa.lpstrFilter 

ofn. lpstrFilc 

ofo. nMaxFile 
ofn.IpctrFileTitk 
afnlpstrTitle 
ofn.nMaxFileTitie 
oia.FUgs 


- sizeof(OPENFILENAME); 

-hWnd; 

-szFilter, 

-szFile; 

- sizeof(szFiIe); 

- szFilcTitie; 

- 'SELECT STATOR FILE"; 

- sizeof(szFiteTitie); 

- OFN_FILEMUSTEXIST|OFN_HIDEREADONLY; 


If the GetOpenFileName function returns successfully, the stator file selected by the user is 
copied into the STATORDAT file. The evalnonaxistator variable is then cleared and 
the no_runtime_options flag is set so that there is no run time option selected the next 
time the Runtime Settings dialog box is called. 

//if the dialog is used successfully to choose a file, execute the code in the braces 
if (GetOpenFileNainc(Aofa)) { 

//open the source file 

MSrcFile - LZOpenFile(ofn IpstrFileTitk, AofStrSrc, OFREAD); 

//creale the destination file 

hlDstFile - LZOpeaFilefszDst, AofStrDest, OFCREATE); 

//copy the scarce file so die destination file 


LZCopyfhlSrcFile, MDstFile); 




LZCloK(kfSrcFite); 

LZCIose(hlDstFite); 


> 


//rent the m time op ti on ! 

eval_noaaxi_itaior - 0; 
no_ru«iine_optioes -1; 


} 


The next runtime option handled is the Unload Component(s) option. If the 
unload_flag variable is set, the unload.set file is opened and written for use by the 
FORTRAN executable. A switch handles the taw cases, single and multiple component 
propulsors. 

//if the unload flag is act, call the appropriate dialog box and write a file with either the Glaucrt coefficient 
// unload fraction* or the hub and tip »tcepnes» ex pon ent ! and coefficient! 

iftunload_flag){ 

//open the miImH settings flag 

out - fopeafunknd.set", V); 


switdKLDEV) 

{ 

easel :< 

If the current project has a single component, case 1 is executed. If there is no 

image hub and the component is not ringed and there is no zero gap duct, the 

GLAUERT1 dialog box is called. This allows the user to view the sine series coefficients 

that describe the current circulation distribution and to alter them in order to unload the 

blades. The data input by the user is then written to the unload.set file. 

//if there is no image hub and the component is not ringed and there is no image duct, or there is an image 
// duct and the gap is wide enough, then call the da u nt 1 dialog box and write the unload fractions 

ifl(image_hub!-'Y') StA (ringedjmpdlerfO]KY’) fti 
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((tattle dnctl-'Y’) I ((tame (taU— V) U 

~((DDIAM-XDIAM|OJ) >- 0.000002 ) ))) { 

DigProc * (DLGPROQMakcProcl Mt«i>a)((FARPROQGtaueit 1 DigProc, ghlratance); 
DtalogRox(ghImtincr, "GLAUERT1", hWnd, DigProc); 
FreeProcIn*tance((FARPROC)DlgProc); 

//write the file 

l)>ftad(out,’%dta\NGC); 

Ar(HM<NQCU++) 

fJjrintf(oiil,’Srji’ > GC_UNLOAD_FRACI01[il); 

} 

If the above condition was not met, the Steepl dialog box is called to allow the user to 
select steepness exponents with which to unload the hub and/or tip. The hub and tip 
unload percentages are then calculated using the same scheme as the original PLL version 
and the Coefficient 1 dialog box is called in order to allow the user to select unload 
coefficients. The unload, set file is written with the user supplied exponents and 
coefficients. 


//if the condition above is not met, then call the Steep 1 dialog box and then the Coefficient 1 dialog box 
// and then write the file 

else ( 

DigProc ■ (DLGPROQMakeProcInstance((F ARPROC)Stecp 1 DigProc, ghlnstance); 
Diak>gBox(ghInstance, ’STEEP 1", hWnd, DigProc); 
FroeProcIastance((FARPROC)DlgProc); 

-*• 

//calculate the hob and tip onload percentages 

Q - ( bubndtaafO] - RZ(0] V( 1.0 - R2J0]); 
iflinage jw b 1 *Y ) { 

OMQSQ- 1.0-Q*Q; 

GNHQ0) - 100.0*sqit(OMQSQ)*pow(C)MQSQ,(2*NHC[0]-2)); 

) 

else( 

P- l.Q-Q; 

OMPSQ ■ 1.0 - P*P; 

GNHC(0) - 100.0*sqrt(OMPSQ)*pow(P,(2*NHq01-2)); 

> 
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Q - ( tipjatfiMfO] - RZJOJ V( 1.0 - RZfOJ); 

ifftrinaed oneeUerfOl—V)i ft 

((imo»B_duct-- n n*A(( DDIAM - XDIAM|0])< 0 000002 ))){ 


P“ 1.0-Q; 

OMPSQ ■ 1.0 - P*P; 

GNTqO] - 100.0*iqrt(OMPSQ)*pow(C)MPSQ.(2*NTCl0]-2)); 


OMQSQ- 1.0-Q*Q; 

GNTQO] - 100.0*sqit(OMQSQ)*pow(Q.(2*NTC[01-2)); 

} 

//call the COEFFICIENTl dialog box 

DlgProc - (DlXjEPROC)MakePnx±utance((FARPROQCoefficient 1 DlgProc, 
ghlnstancc); 

DialogBox(ghInstM«, "COEFFICIENT 1*. hWnd, DlgProc), 
FrecProcIn»Unce((FARPROQDlgProc); 


» 


ft 


//write the file 


ft 


fprintf[out,"%d\n%An%d\n%fji" > hubsteq)ness|0), 
hub_coefficknt[0], tipstcepoessfO], tip_coefRcient|OJ); 


> 

break; 

} 


ft 


The multiple component case is analogous to the single component case. For 
loops are used for the calculations and writing the unload, set file. 

eaee2; { 

//if there is no image bob and the components are not ringed and there is no image duct, or there is an 
image 

// duct and the gaps are wide enough, then call the Glauert 2 dialog box and write the unload fractions 

if((image_hubl-'Y^AA(ringed_propeUerlO]l- , V) StA 

(ringedjropeikdlll-‘ r H4^(unagejhict!-V^ 

((image duet—V)** 

(((DDIAM-XDIAMJO])>»0.000002)AA 
((DDIAM-XDIAM[1])>«0.000002))))) { 

DlgProc ” (DLGPROC)MakePnx:InsUnce((FARPROC)Glaucrt2DlgProc, ghlnstance); 

DialogBox(ghInstance, "GLAUERT2", hWnd, DlgProc); 

FreeProdnstance((FARPROC)DlgProc); 

(printfl^"%d\n\NGC); 

//write the file 


ft r 


ft 


ft 


ft 
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**0-o-j<u*vj++M 


fcf(i-Oy<NGC;i++) { 

Qwinti(Qut,' > Si\a" > GC_UNLQAD_FRACljUi]); 


//if the condition above is not met, then all the Steep 2 dialog box and then the Coefficient 2 dialog box 
// and then write the file 


else { 

DlgProc - (DLGPROC)MakcProcInaaixx((FARPROC)Stccp2DlgProc, ghlnstance); 
Diak>gBox(ghInsUnce, "STEEP2”, hWnd, DlgProc); 
FraeProcInstance((FARPROC)DlgPioc); 

//calculate the hub and tip unload percentages 

fof(i-0;i<LDEV;i'*-+) { 

Q - ( hub_radius[i] - RZ{i])/( 1.0 - RZfi]); 
if(iinage_lHdr—'Y’) { 

OMQSQ -1.0 - Q*0> 

GNHCfi] - lOO.O*sqrt(OMQSQ)*pow(OMQSQ,(2*NHClil-2)); 

> 

else { 

P * 1.0 - Q; 

OMPSQ -1.0 - P*P; 

GNHCfi] - 100.0*sqrt(OMPSQ)*pow(P,(2*NHC[il-2)); 

} 

Q - (tip__radius(i] - RZJi] y( 1.0 - RZU1); 

if((ringedj*opeUer|i]—V)! 

((image duct—'Y’J&A 

(( DDIAM - XDIAM[i])< 0.000002))) { 

P-1.0-Q; 

OMPSQ-1.0-P*P; 

GNTCfi) - 100.0*rqrt(OMPSQ)* 

pow(OMPSQ,(2*NTCli]-2)); 

> 

else { 

OMQSQ- 1.0-Q*Q; 
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GNTCfi] - 100.0*sqtfOMQSQ)* 
p«KQ,(2*NTqil-2)); 

} 

) 

DlfProc - (DLGFROC)MakeProcIastaace((FARPROC)Coefficienl2DlgProc, 
ghlastance); 

DiiiogPaxdMMUace. "COEFFICIENT2*, hWnd, DlfProc); 

FrecProd n«t«noB((FARPROQDtfProc); 


fia*(i-OU<LDEV;i++) 


lprintf(out, l, %d\n%Aii%d\attA^huto_steepness(i], 
hub_coeffideat(i], tip_stcepness(i], tip_ c ocfl k acatlil); 

> 

break; 


> 

} 

After the single and multiple component cases are handled, the case clears the unloadflag, 

sets the noruntimeoptions flag, and closes the unload .set file. 

//reset the ran time options and close the unload settings file 

unloadflag - 0; 
no_runtime_opUons -1; 

fdose(out); 

> 

The option to match an expanded area ratio is the next option handled by the 
IDMRUN case. If the matchJEAR_flag is set, the single or multiple component EAR 
dialog box is called as appropriate. The ear. set file is then written and the 
match_EAR_flag is cleared. 

//if the user selected the match EAR option, call the appropriate EAR dialog 
// box sad write the esrset file 

if(iratch_EAR_flag){ 

iflLDEV—1){ 

DlfProc - (DLGPROC)MakcProcInstance((FARPROC)EAR 1 DlgProc, 



» 




i 


• • 



» 


» 
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} 

Ct9C\ 


DMa^oii(| MMlMCt, *EAR1", hWnd, DtgProc); 


DlgProc - (DL(3 , ROC)MakeProcIn*Unce((FARPRC)OEAR2DlgProc, 
gUnstnce); 

DtakjgBox/ghlnttance, *EAR2", kWnd, DtgProc); 


} 

FrecPrcclB*Unc^(FARPROC)DltPTOc); 
out - fopeaCearset*, V); 
for(i-Oj<LDEVJ++) 


fprintf(out,'%An\EAR{j]); 


//reset the run time options and ckxc the setting file 

match_EAR_flag ” 0; 
no_runtime_options “ 1; 


fck»e(out), 

} 


If the option to maximize thrust for a given torque and determine ship speed 
option is selected, the maximize thrust flag is cleared. If the project is a multiple 
component propulsor a warning message is printed since the option is not available for 
multiple component propulsors. 

//if the maximize thrust for given torque and determine ship speed option is 
// chosen, reset the runtime options and print a warning message if there is 
// more than one compo n ent 

if(msximize_thnist){ 

maximizethrust - 0; 

DO_nmtime_optk>ns ” 1; 

if(LDEV>l){ 

MesmgeBeep(MB_ICONEXCLAMATION); 

MessageBox/hWnd, "The Maximize Thrust option is not available for \ 
multiple component propulsors. Continuing with normal run.”, 

•WARNING!', MBJCONSTOP | MB_OK | MBTASKMODAL); 




> 

> 

If the user has elected to optimize RPM or diameter, a test is made to determine if 

the project is a ringed ropeUer or if the project has a duct. If the project is not a ringed 

propeller and has no duct, the Optimization Data dialog box is called and the user may 

select the component to optimize. The user must specify a required thrust to optimize for 

and in the case of a contra-rotating propulsor must specify a torque coefficient. The 

OPTIM.DAT file is then written to provide the user supplied data to the FORTR.\N 

executable and the run time option is cleared. 

//if the user selected the optimize RPM or diameter option, call the optimization 
//dialog box 

if(optimize_ipm||optimize_diameter){ 

//the optimization procedures can not be used for ringed or ducted propulsors 
iH(ringed_propeUeriP] ,= 'Y , &&image_duct! =r Yl { 

DIgProc = (DLGPROC)MakeProcInstance((FARPROC)OPTTMI2ATIONDlgPnx, 
ghlnstancc); 

DialogBox(ghInstance, "OPTIMIZATION", hWnd, DIgProc); 
FreeProcInstance((FARPROC)DlgProc); 

out = fopen("OPTIM.DAT", "w"); 

fprinti(out,*%d\n",opt_conip); 
fprintf[out, “%l\n" .thrustreq); 
fprintf(out,’%i\n",torq_coeff); 

//reset the run time options and close the data file 

optimize_rpm = 0; 
optimized in meter = 0; 
nonintimeoptions * 1; 

fclose(out); 

> 
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If the project is a ringed or ducted propulsor, a warning message is written into the 
OPTIM.DAT file for display after the run is complete and the run time option is cleared. 
Since the options, set file was previously written assuming that the RPM or diameter 
would be optimized, the file is rewritten with no runtime option. 
dse{ 

out * fopen("OPTTM.DAT', *w*); 

fprintfiout, "Optimization procedures can not be \ 
used for ringed or ducted propulsors"); 

fclose(out); 


optimizerpm - 0; 
optimizediameter - 0; 
noruntimeoptions = 1; 


out “ fopen("options.set", "w*); 

fprintli[out, "99\n"); 

forint^ out,"%f\n", horsepower); 

fprintf[out,"%f\n", thrust coefficient); 


fclose(out); 


> 


} 

The final action of the IDM RUN case is to use the WinExec function to cause the 
PLL FORTRAN executable to be run in an iconified window. 

//ran the fortran executable in an iconified window 

WinExec("pU.pir,SW_SHOWMINIMIZED); 

break; 

> 
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The IDM PRINTPLLPLOTS case is used to respond to the FilejPrint PLL Plots 
main menu selection. Two temporary integer variables are declared. They are used to 
retain information regarding the plot currently displayed in the Plot Viewer window since 
the plot_page and plot_component_flag variables are altered during the printing process. 
A loop counter is declared for the purpose of keeping track of the number of copies 
printed. PRINTDLG and DOCINFO structures are declared for use in calling the Print 
common dialog box and specifying the details of the document for the Windows™ Print 
Manager program. The PRINTDLG and DOCINFO structures and the printing process 
were described in Appendix A.3. 


case IDM PRINTPLLPLXrrS: { 

int temp_plot_page, 

temp_plot_component_flag, 

j; 

PRINTDLG pd; 

DOCINFO di; 


//copies of the plot_page and 
// plotcomponentflag indices 
//loop counter 

//print dialog structure 

//document information structure 


i 


The case first tests the draw_plot_flag to determine if any PLL plots are available 
for printing. If no plots are available, a warning message is displayed and the case is 
terminated. 

//if there is are no PLL plots to print, print a warning and terminate the case 
ifX! draw_plot_flag ){ 


MessageBeep(MB_ICONEXCLAMATION); 

MessageBoxfhWnd, There an no PLL plots to print.*, 
"WARNING!’, MBICONSTOP | MBOK | MBTASKMOD AL); 


If PLL plots are available for printing, the plotjsage and plot_component_flag 
values are saved in the temporary integer variables that were declared for that purpose. 


t 





4 


4 


4 


( 


4 


4 


4 


4 


4 


4 


Thu it done so that they can be restored after the printing process. The result of not 
restoring the values would be to possibly alter the plot displayed in the Plot Viewer 
window by processing a (Mint request. 

//otherwise, proc e ss the req uest 

//save copi es of the c ur re nt plot_page and piot_cotnponent_flag indices since 
// they will be altered during the pruning process 

temp_pk*j*ge “ pkXjnge; 

temp_pkrt_compooent_flag - pkXcomponentflag; 


The PRINTDLG and DOC INFO structures are initialized in the same way as described in 
Appendix A.3. The pd.nFromPage and pd.nMinPage are set to one and the pd.nToPage 
and pd.nMaxPage parameters are set to one and four respectively. This limits the range of 
page numbers available to the user through the Print common dialog box and initializes the 
values displayed in the box to one and four since PLL generates four plot pages. 

//set all printdlg structure members to zero. 

memset(&pd, 0, sizeof^PRINTDLG)); 

//initialize the document information structure 


di.cbSize = sizeof^DOCINFO); 

di.lpszDocName * "MTT-PLL PLOTS"; 
di.lpszOutput = NULL; 


// Initialize the necessary PRINTDLG structure members. 


pdJStnictSize 

pd.hwndOwner 

pd. Flags 

pdnFromPage 

pdnToPage 

pdnMinPage 

pdnMaxPage 


- sizeoflPRINTDLG); 
* hWnd; 


= PD RETURNDQPD HIDEPRINTTOFILE|PD NOSELECTION; 
- 1 ; 

“4; 

- 1 ; 

= 4; 


//if the PrintDlg function is successful, execute the code in the braces 


if (PrintDlg(&pd) I* 0) { 


4 
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If the PrintDig function returns successfully, a document is started and a for loop is 
used to cause the number of copies requested by the user, pd.nCopies, to be printed. The 
case uses two additional for loops embedded in each other within the first for loop. The 
first causes all three available plots for each page in the case of a multiple component 
propulsor to be printed. The second causes each selected plot page to be printed. 

//start the output document 

StaitDoc(pd.hDC,&di); 

//loop through the number of copies requested 
fbr(f=0; j<pdnCopies; j++){ 

//# of plots per page, I for single component and 3 for multiple component propul sore 
// calculated in the for loop by 1 + 2*(LDEV-1) 

for<plot_componentflag=0;plot_componcntflag<( 1+2*(LDE V-1)); 
plot_component_flag++){ 

for(plotjMge=pd.nFromPage-l;plot_page<pd.nToPage; 

plot_page++){ 

StaitPage(pd.hDC); 

printplot(pd.hDQ; 

EndPage(pd.hDC); 

) 

> 

} 

The print process is terminated in the same way as described in Appendix A.3. 

The plot_page and plot_component_flag variables are restored to their original values and 

the case is terminated. 

EndDoc(pd.hDC); 

DeleteDC(pd.hDC); 

> 


if (pd hDevMode !» NULL) GlobalFree(pd.hDevMode); 






if (pdhDcvNames I- NULL) GlohaIFree(pdhDevNama); 
/baton die plot jMge and plot_oo m poo ent _flaf indices 
plot one-temp plot page: 
plot co mp oii cal (^"tenpjM co pp op crt flig; 
break; 

> 


The IDM_PRINTPBDPLOTS case is used to cause PBD plots to be printed. It is 
very similar to the IDMPRINTPLLPLOTS case. The differences will be emphasized in 


this discussion. 

case II -UNTPBDPLOTS : { 
int tcmp_plot_page, 

j; 

PRINTDLGpd; 

DOCINFOdi; 

FILE *plot; 

POINT origin={320,240}; 


//copy of the plot_page index 
//loop counter 

//print dialog structure 

//document information structure 

//pointer to a file structure 

//origin of plot in screen 
// logical coordinates 


The IDM_PRINTPBDPLOTS case declares a pointer to a FILE structure to be 
used in opening PBD output files that will be drawn to the printer device context. A 
POINT structure is declared and initialized. It is used to determine the point in the display 
area that will be used as the origin of the printed plots. As in the previous case, a 
temporary variable is declared to keep track of the plot page currently displayed in the 
Plot Viewer window. Only one temporary variable is required since the PBD plots do not 
have the option of presenting data for the first, second, or both components. Also as in 
the previous case, if there are no PBD plots to print, a warning message is printed and the 
case is terminated. 


//if there is are no PBD plots to print, print a warning and terminate the case 







Wpbdjhf){ 


« 


I 


« 


« 


I 


« 


a 


« 


« 


I 


McmageBcep(MB_ICONEXCLAMATK)N); 

MMHB«(hWad, "There an no PSD plots to print". 

"WARNING!". MBICONSTOP | MBOK | MBTASKMODAL); 

break; 

> 

//otherwise, process the request 

After a copy of the piot_page value is saved the PRINTDLG and DOCINFO 

structures are initialized. In this case the page range is a function of the PBD run mode. 

The pd.nToPage is set to five since that is the minimum number of pages available. The 

value is incremented by one if the PBDOUTCMV file is found to exist. The 

pd.nMaxPage value is then set equal to the pd.nToPage value. 

//save a copy of the current plot_pnge index since it will be altered during 
//the printing process 

temp_pkx_page » pkxjnge; 

//set all printdlg structure members to zero. 

memset(Apd, 0, sizeof(PRINTDLG)); 

//initialize the document information structure 

di.cbSize * sizeotfDOCINFO); 
di.lpszDocName - "MIT-PBD PLOTS"; 
di.lpszOutput - NULL; 

// Initialize the necessary PRINTDLG structure members. 

//if the pbdoutcmv file exists, set pkX_page to 9 and plot that file 

pd.!Stroct5ize - sizeoflpRINTDLG); 
pd.hwndOwner - hWnd; 

pdFlags - PD_RETURNDClPD_HIDEPRINrTOFILEpD_NOSELECTION; 

pd.nFromPage ” 1; 
pdnMinPage -1; 
pdnToPage ■ 5; 

//if the pbdoutcmv file does not exist, the maximum number of plots is 5, 
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//otherwise it is6 


i^«nnf(*pbdoMtc»v‘. 0) — 0) pd«ToP«*p++; 
pdiMixPue ■gii Tflh j H 

If the PrintDig function returns successfully, the document is started and a for loop 
is again used to control the number of copies printed. Another for loop is used to loop 
through the pages to be plotted. The plot_pege value in this case is incremented by three 
in this case in order to cause the four PLL plot pages to be skipped. 

//if the PriatDig hwctiou is nccestfil, execute the code in the braces 
if (PriatDlg(Apd) 1-0) { 

//dart the output document 

StartDoc(pd. hDC,£di); 

//loop through the number of copies requested 
fortf-O; j<pd.nCopie*; j++){ 

for(plot_pa*e-pd. nFromPise+3 yplot_pa*e<-pd. nToPa«r+3 ;pkrt_pa*e++) { 
StartPage(pdhDC); 

A switch is used to test the value of the piotjpage variable and cause the 
appropriate files to be drawn to the printer device context, pd.hDC, that was returned by 
the PrintDig function. 

twitch(piot_p«fe){ 

Mm 

Case four corresponds to the plot of the input blade grid and control point net 
The input Made grid is contained in the PBDOUT.IBG file and the B-spiine net is 
contained in the PBDOUT.BSN file. The files are tested sequentially and if found to exist 
they are opened with read access using the fopen function. The printer device context the 
address or the origin, a pointer to the FILE structure, and a color value index are passed 
to the paint^graphs function to cause the plots to be drawn to the printer device context. 
The files are then closed. 







I 


cm4:{ 


» 


M » oc—n*dBta»r. o)—o) { 

plot - fcpeafpbdoutibj*, VX g 

putjpapMpd-bDC, origin, plot. 0); 
fckoefplatX } 

iKacce*TpbdcwLb«’, 0) — 0) { g 

plot - fcpeaf'pbdoaLbca*, "r*); 
pointjpapMpcLhDC, origin, plot, 1); 

fdow(plot); } g 

break; 

> 

Cases five through nine ire handled in t similar manner. Case five plots the * 

drawing of the output Made grid, centerbody, transition wake, and hub and duct images. 

It uses the PBDOUT.HUB file with the painthub function, and the PBDOUT.HDI and 
PB1XXJT.OBG files with the part^graphs function. * 

caoe5:{ 

igaooeaaCpbdooLbnb-, 0) — 0) { 

plo t • fcpcaCpbdowLhnb' 1 , "i*); * 

paintJMbfpdJhDC, origin, plot); 
fc koc ( plo t) ; > 

» 

M ^ co—Cpbdonthdf.O)—0)( 

plot ~ If, V); 


part_gnf>lu(pd.hDC, origin, plot, IX 
U ooefplotX } 


1 




fckm(pi0t); > 

break; 

) 

Case six draws die control point velocity plot using the PBOOUT. VCP file and the 
paint_vcp function. 
cs«6:( 

iH a cceM Cp bdoMtvcp*. 0) — 0) { 

plot - SopeaCpbdoutvcp*, V); 
paint_vcp(pd. hDC, origin, plot); 
fcloae(plot); ) 

break; 

> 

Case seven draws the circulation contour plot. It uses, depending on the run 
mode, either the PBDOUT.GSP or the PBDOUT.SOL function. The paint jpp function 
is used in either case. 
care7:< 

//the cucotatioa coatoar plot file may be either a .gq> or a .sol file 
i^aooenCpMooLgap”, 0)—0) { 

plot - fcpeaCpbdoutgip*. V); 

P*h*JW<pd.hDC, origin, plot); 
fcloae(piot); } 
ebe i^aoeeaCpbdoutsol*, 0) — 0) { 


plot ■ fc p ca Cp bdo at H *. "r"); 







paint_pp(pd.hOC, origin, plot); 


} 

Case eight draws the radial circulation distribution plot. It uses, depending mi the 
run mode, either the PBDOUT.RDC or the PBDOUT. SGR function. The paint rdc 
function is used in either case. 

case 8: { 

lit he radial circulation distribution file may be either a rdc or a .sgr file 
i^accessfpbdout rdc\ 0) — 0) { 

plot - fopen("pbdoutnlc", V); 
paintrdc(pd.hDC, plot); 
fclosefplot); } 

else i^acoessCpbdoutsgr”, 0) = 0) { 
plot - fcpenfpbdouLsgr”, "r"); 
paintrdc(pd. hDC, plot); 
fclose(plot); ) 

break; 

> 

The final case, case nine, prints the circumferential mean velocity plot using the 
PBDOUT.CMV file and the paintemv function. 

caee9:{ 

ifiaccessCpbdoutcmv*, 0) — 0) { 

plot - fopen("pbdoutcmv", "r"); 
paint_cmv(pd.hDC, origin, plot); 



ft 
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fciMa(plet); 


EadPagB(pdkDC); 


The document is terminated in the mnoer described above, the plot_page value is 
restored, and the case is terminated. 

EndDoc(pd.hDC); 

DekteDC(pd.hDQ; 


if (pd.hDcvMode !- NULL) GJot»lFree(pd.hDevModc); 
if (pd. hDev Names!» NULL) GlobaIFite(pd. hDcvNames); 
//restore the piot_page index 

piorpnge - temp_pk*_page; 


The IDM PRINTOUTPUT case responds to main menu FilejPrint Output 
selections. The case declares a PRINTDLG structure and a DOCINFO structure as 
expected. Loop counters and a temporary variable for storing the value of output jBag are 
declared. The integer variable page is used in testing to determine if a particular page 
should be printed. The print_flag array is also used in determining if a particular page 
should be plotted. 


n»d_P!UNTOUTPUT: { 


iat tempjmtputjflag, 

Uj, 

P*W 


//copy of the outputjlag index 
//loop counters 
//page number 
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HUNTDLGpd; 

DOCINPOdi; 


itructurc 


iat print Has! 11 f-{ 1,0. 

0 , 0 , 

0 , 0 , 

0 . 0 , 

0 , 0 , 

0 }. 


//document i n fc nnn tion ttroctun 

//inleter amy of flags that 
// indicate if a particular 
// file should be printed 




If there is no output to prim, as indicated by the absence of the summary , out file, a 
warning message printed and the case is terminated. 

/M no output is available, print an error message and terminate the case 
iil[lpr()ject_flagjj!(acccss('summary.out", 0) — 0)){ 

M es sag cD eep(MB_ICONEXCLAMATION); 

MessagcBoxChWnd, "A project must be open and output available in order to print", 
"WARNING!", MBJCONSTOP | MBOK | MBTASKMODAL); 

break; > 


» 


§ 






If there is output to print, the case proceeds by filling in the print_flag array. Two 
conditions must be met in order for an output file to be printed. The first is that the file 
must exist. The print jfiag is filled in based on the existence of the output files 
corresponding to the position in the array. The 1th position in the array, for example, is 
incremented by one from its initialized value of zero if the detail 1 out file is found to exist. 
The summary, out file is assumed to exist since the case was not immediately terminated 
based on the initial test, and the 0th value is initialized as one. 


//otherwise, process the request 


//set the prinf_flag for each output file that exists for this run 


iflaccessfdetmll.out", 0) " 0) 
iflacccssf detaiB.out*, 0) — 0) 
iftaccessCstress.out", 0) — 0) 
iflacccssfductgeo", 0)—0) 
iflacctssC&rds oat", 0) —0) 


print_flagjl] ++; 
print_flagl2] ++; 
priat_flag(3j ++; 
print_flagl4] ++; 
priat_flagf5] ++; 


» 


244 








i^acceafaooaxi.dr', 0) — 0) print_flagl61 ++; 

iflCacoeHCDCMUxi lot", 0) — 0) print_flag(7] ++; 

itacoeH(*aoMxi.cap a . 0) *“ 0) printJIagisj ++; 

igaccemCnosaxi.har", 0) — 0) print_flag!9] ++; 

iflaccessCpbdouLktq*, 0) — 0) print_flagI10)++; 


The case then saves a copy of the output_flag and initializes the PRINTDLG and 

DOCENFO structures. The output_flag is an index that indicates the file that is to be 

displayed in the Output Viewer window. The copy is saved so that the file displayed in 

the window will not be changed by the printing process. 

//save a copy of the output flag since it will be altered during the printing process 

tempoutpuMlag - outputflag, 

//set all of the printdlg structure members to zero 

memset(&pd, 0, sizeoflPRINTDLG)); 

//initialize the document information structure 

di.cbSize ■ sizeof(DOCINFO); 

di.lpszDocName - "MIT-PLL OUTPUT*; 

di.lpszOutput = NULL; 

//ini tialise the necessary PRINTDLG structure members. 

pd.lStructSize = sizcoflPRINTDLG); 
pd-hwndOwner = hWnd; 

pd.Flags - PDRETURNDC[PD_HIDEPRINTTOFILE|PD_NOSELECnON; 

pd.nFromPage * 1; 

The sum of the values in the print flag array is equal to the total number of files available 

for printing. A for loop is used to sum the values in the array into the pd.nToPage 

variable. The pd.nToPage value is then copied into the pd.nMaxpage variable to complete 

the initialization process for the PRINTDLG structure. 

//sum the print_flag army to determine how many files are available to print 

for(i*0;i < ll;i++) pd.nToPage+= print_flag|i]; 

pdnMinPage- 1; 
pdnMaxPage - pd. nToPagc; 


//if the PrintDIg function is successful, execute the code in the braces 





if(PrialD!f(Apd) !-0){ 


» 


//begin the document 

SUitDoc(pd. hDC.Adi); 
//loop through the munber of copies requeued 

foi<pO; j<pd.aCopie«; j++){ 


If the PrintDIg function returns successfully, a document is started and a for loop is 
used to print the number of copies requested by the user The second condition that must 
be met in order for a file to be printed is that the user must specify that it be printed by 
including it in the print range. In this case, the from page and to page values selected by 
the user are interpreted as from file and to file values. 

The temporary integer value, page, is set to zero. The value in page will be used 
to indicate the file number corresponding to a particular output file. 

//set the current page number to zero 
page-O; 


The case now uses a for loop to index through the print_flag array. If the value of 
the print_flag array indicates that the file exists, page is incremented so that the value in 
page corresponds to the page number, or file number, of the file corresponding to the 
printflag index. 

//loop through each of the ten possible output files 
fbr(pO;i<10;i++){ 

//if the file exists, increment the page number 

iffprirttflagfiDf 

page*+; 
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The case then tests page to determine if it is within the range of files the user 
desires to print. If it is, then a page is started with the output_flag set so that the 
appropriate file will be printed. The printer device context is then passed to the printout 
function and the appropriate file is printed. 

//if the page number is in the range requested by the user, print it 

if((page>=pd.nFromPage)&&(page<=pd.nToPage)){ 
outputflag = i; 

StartPage(pd.hDC); 

printoutfpd.hDC); 

EndPage(pd.hDC); 

> 

) 

> 

} 

After the appropriate number of copies of the requested files are printed, the case 
is terminated in the manner described above in the IDM PRINTPLLPLOT S and 
IDM_PRINTPBDPLOTS cases. 

//end the document 

EndDoc(pd.hDC); 

DeleteDC(pd.hDQ; 

> 

if (pd.hDevMode != NULL) GlobalFree(pd.hDevMode); 
if (pd.hDevNames != NULL) GlobalFree(pd.hDevNames); 
outputflag = temp_output_flag; 

break; } 

The EJM_SAVEPROJECT case handles the FileJSave Project main menu 
selection. If a project is currently open, it uses an OPENFILENAME structure and the 
GetSaveFileName functioi to call the Save common dialog box. 




IDM SAVEPROJECT: { 


I 


OPENFILENAME ofo; 
char szFik{256), 

szFikTitle(256], 

szFiitcrO” *PRJ Files (*.PRJ)\0*.PRJV)'; 


//openfilename structure used with 
// GctOpenFileNamc function 
//same and location of the file 
//to open 

//name of file to open 
//filter for list box 


I 


FILE ’project; //pointer to a file structure 

//if there is no project open, print a warning and terminate the case 
if(!prqject_flag){ 

MessageBeep(MB_ICONEXCLAMATION); 

MessageBox(hWnd, "A project must be open in order to be saved.”, 

"WARNING!", MBJCONSTOP | MB_OK | MB_TASKMODAL); 

break; > 

//otherwise, process the request 


The case initializes the dialog box with the name of the currently open project in case the 
user wishes to overwrite the project file. Alternatively, the user may input any acceptable 
DOS filename. 


//zero the openfilename structure 

memsetC&afh, 0, sizeofiOPENFILENAME)); 

//initialize the necessary OPENFILENAME structure parameters 
strcpyfszFile, PROJECTFILE); 


ofh.lStructSize 

ofh.hwndOwner 

ofh.lpstrFilter 

ofn.lpsUFile 

ofn.nMaxFik 

ofh.lpstrFileTitle 

ofn.nMaxFileTitle 

ofn.Flags 


- sizeoIIOPENFILENAME); 

” hWnd; 

= szFilter, 

= szFile; 

- sizeofiszFile); 

= szFileTitle; 

” sizeofiszFileTitk); 

- OFN OVERWRITEPROMPTPFN HIDEREADONLY; 


//if the GetSaveFileName function is successful, execute the code in the braces 


I 


» 


» 
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if (GetSaveFikName(Aofn)) { 


4 


4 


4 


4 


4 


4 


4 


4 


4 


4 


If the GetSaveFileName function returns successfully, the file selected by the user 
is opened with write access, the filename is written to the PROJECTFILE global character 
array, and the new project file is written by calling the write_project_file function. The 
new project file is then closed and the case is terminated. 

//open the file in di c ated by the uaer 

project m fopen(afh.lpstrFileTiUe,*w"); 

//copy the file title into the PROJECTFILE string 

sprintf(PROJECTFILE, "%s",ofii.lpstrFileTitle); 

//write the project file by calling the write_prqject_file function 
writej>roject_file(project); 

//close the file 

fclose (project); 

} 

break; ) 

The next five cases respond to the Edit|Default Settings, Edit|Duct Settings, 
EditJABS Strength Settings, Edit|PBD Settings, and Edit|PBD Skew/Rake Settings main 
menu selections. Each case declares a pointer to a dialog procedure, DlgProc. 

case IDMDEFAULTSETTINGS: ( 

DLGPROC DlgProc, //pointer to a dialog 

procedure 

The IDM DEFAULTSETTINGS case displays a warning message if there is no 
project open and terminates the case. If a project is open, the case calls the single or 
multiple component Default Settings dialog box based on a test of LDEV. The case 
terminates after the dialog box terminates. 

//if no project is open, print a warning message and terminate the case 


4 
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i/(!prqjectjlag){ 

MessageBeep/MBJCONEXCLAMATION); 

MrssageBox(hWnd, "A project mutt be open in order to be edit Defiuilt Settings.", 
“WARNING!*, MBJCONSTOP | MBOK | MB_TASKMODAL); 

break; } 

//call the appropriate Default Settings dialog box, depending oo the number 
//of co mp o n e nts 

if(LDEV <2){ 

DlgProc - (DLGPROQMakeProcInstance((FARPROC)Default 1 ScttingsDlgProc, ghlnstance); 
DialogBoxCghlnstance. “DEFAULT IShl lINGS", hWnd, DlgProc); 

} 

else{ 

DlgProc ■ (DLGPROQMakeProcInstance((FARPROC)Default2ScttingsDlgProc, ghlnstance); 
DialogBox(ghInstance, "DEFAULT2SETTINGS", hWnd, DlgProc); 

> 

FreeProclnstance((FARPROC)DlgProc), 
break; } 

case IDMDUCTSETTINGS: { 

DLGPROC DlgProc, //pointer to a dialog 

procedure 

The IDM DUCTSETTINGS case displays a warning message if there is no 
project open or if there is no duct in the open project and terminates the case. If a ducted 
project is open, the case calls Duct Settings dialog box. The case terminates after the 
dialog box terminates. 

//if no project is open or there is no duct, print a warning message and 
// terminate the care 

if(!project_flag|Kiniage_duct “ TOIKimageduct — ’n 1 ))! 

MessageBeep(MBICONEXCL AMATION); 

McssagcBox(hWnd. "A project with a duct must be open in order to edit the \ 

Duct Defiuilt Settings.", 

"WARNING!", MBJCONSTOP 1 MBOK | MB_TASKMODAL); 


( 


i 


( 


» 




» 




i 


» 



» 
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break; 


} 


DlgProc - (DLGPROC)MakcProcInstance((FARPROC)DuctSetlingsDlgPnx:, ghlnstance); 
DialogBox(ghInctance, *DUCTSETTINGS", hWnd, DlgProc); 
FreeProcInstance((FARPROC)DlgProc); 

break; } 

case IDM_ ABSRULES : { 

DLGPROC DlgProc, //pointer to a dialog 

procedure 










The IDM ABSRULES case displays a warning message if there is no project open 
and terminates the case. If a project is open, the case calls ABS Rules Strength Settings 
dialog box. The case terminates after the dialog box terminates. 


iftlprojectjBag) { 

MessageBeep(MB_ICONEXCLAMATION); 

MessageBox(hWnd, "A project must be open in order to edit the ABS Rules \ 
Strength Calculation Settings.*, 

"WARNING!*, MBICONSTOP | MBOK | MBTASKMODAL); 
break; } 


DlgProc ” (DLGPROQMakeProcInstance((FARPROC)ABSDlgProc, ghlnstance); 
DialogBox(ghInstance, "ABSRULES", hWnd, DlgProc); 
FrecProcInstance((FARPROC)DlgProc); 


break; > 


• The IDM EDITPBDSETTINGS case is analogous to the IDM_ABSRULES case. 

case IDM EDITPBDSETTINGS: { 

DLGPROC DlgProc, //pointer to a dialog 

procedure 

if(!projectflag) { 

MessageBeep(MB_ICONEXCLAMATION); 

M essageBox(hWnd, "A project must be open in order to edit the PBD Settings.", 

• "WARNING!", MBJCONSTOP | MBOK | MBTASKMODAL); 

break; } 
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DigProc - (DLGPROC)MakeProcInitaftix((FARPROC)PBDScttingsr)lgProc, ghlnstance); 
DialogBox(ghInstance, TBDSETTINGS*, hWnd, DigProc); 
FraeProcInstaixx((FARPROC)DlgProc); 


The DDMJEDITPBDSKEWRAKE case is analogous to the 


EDM DEFAULTSETTINGS case. 


IDM_EDITPBDSKEWRAKE: { 


DLGPROC DigProc; 


/^pointer to a dialog 


if(lprqject_flag) { 


McssagcBecpCMBICONEXCLAMATION); 


MesssgeBox(hWnd, "A project must be open in order to edit the PBD Skew and Rake values.”, 
•WARNING!", MBICONSTOP | MBOK | MB_TASKMODAL); 


DigProc = (DLGPROC)MakeProcInstance((F ARPROCJSkewRake 1 DigProc, ghlnstance); 
Diak>gBox(ghInstance, "SKEWRAKE1”, hWnd, DigProc); 
FreeProcInstance((FARPROQDlgProc); 


if(LDEV>l){ 


DigProc = (DLGPROC)MakeProcInstaiice((FARPROC)SkewRake2DlgProc, ghlnstance); 
DialogBox(ghInstance, "SKEWRAKE2", hWnd, DigProc); 
FreeProcInstance((FARPROC)D1gProc); 

} 


The IDMJEDITPITCHROLLYAW case responds to a message sent by the 
MDIChildPiotWndProc in response to a right mouse button double click on the Plot 


Viewer window while a PBD plot is displayed. It calls the PBD Plot Geometry dialog box 
and terminates after the dialog box terminates. The MDIChildPiotWndProc function will 


be discussed in section C.2.3. 


IDM EDITPITCHROLLYAW: { 


i < 
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DLGPR0C DifProc; 


//poialer to a diatog 


DlgjPrac - (DIX91tOQMakePredaatauce((FARPflOC)PBDPRYDIgPfoc, ghlnttaacc); 
Dialo|0u(gfclMtMce. 'PBDI’RV. h’Vad, Dt^Pioc); 
FWWd«<^(FAIIFiOQM^lwc); 


IaivalidalcRcct(hPVxWad, NULL, TRUE); 


break; 

} 

The IDM.WRITEOUTPUT case responds to the main menu FilejWrite PLL 
Output File selection. If there is an open project and output available, the case allows the 
user to select an output filename using the Save common dialog box. 

case JVRITEOUTPIJT: { 

OPENFILENAME ofa; 

char szFik[256K* oufVO". 

szFileTitlc{236], 

szFilterf]- ’OUT Files (•.OUDVO*.OUTVO'; 

HFTLE out; 

//if no project is open or there are no output files, print a warning 
// and terminate the 

ifl[(!project_flag))|!(access(*suinmary.out", 0) “ 0)){ 
McssagcBccp(MB_ICONEXCLAMAnON); 

MessageBox(hWnd, "A project must be open and output available to write an output file.”, 
■WARNING!", MBJCONSTOP | MB_OK | MBTASKMODAL); 

break; } 

//initialize the OPENFILENAME parameters 

mrmatt(Aofa, 0, sizeof(OPENFILENAME)); 

// Initialize the OPENFILENAME members 

ofnlStnictSize * sizeofiOPENFILENAME); 

ofij.hwndOwner - hWnd; 

offc.lpstrFiller = szFilter, 

afitlpstifile *= szFile; 


//openfilcname structure used with 
// GetOpenFileName function 
//name and location of the file 
//to open 

//name of file to open 

//filter for list box 

//handle to a file 






tl 


- czFtteTfck; 

- ttaec^tzFikTKk); 

- OFN OVERWRITEPROMPT)OFN_HIDEREADONLY; 


tf(GrtSavcftkNaaK<£flfe)) { 


Upon the successful return of the GetSavcFileName function, the case uses the Jcreat 
function to open or create the file selected by the user. The Icreat function receives the 
address of the file title and a file attribute. In this case, if the file already exists it is opened 
for reading and writing and truncated to zero length. If the file does not exist, it is created 
with write access. The function returns a handle to the file. 

//create an output file 

out - _lcreat(ofii.lpstrFileTitle, 0); 

The case then writes all of the available PLL output files into the specified file by calling 
the write_output_file function, doses the file, ami terminates the case. 

//call the write_output_file fuction to write the output file 
write_output_fik(out); 

//close the overall output file 
Jdose(out); 


If there are PBD output files available as indicated by the pbd_flag variable, the 
IDM WRITEPBDOUTPUT case responds to main menu File|Write PBD Output Files 
selections by calling the write_pbd_files function. Otherwise, a warning message is 
displayed and the case is terminated. The write_pbd_files function copies all of the 
available PBD output files into files having the root name specified in the PBD Settings 
dialog box and the appropriate extension. 


IDM_WRrrEPBDOUTPUT: { 
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tfCpMJIati 


wrilt_pbd_fik*0; 


I tr—grBrrp(MB_ICOWBXCLAMA’nON); 

MesaafeBufkWad, "No FBD files to write.", 

-WARNING!’, MB ICX>NSTOP|MB OK | MB TASKMODAL); 

> 

bralq } 


The IDM JEXIT case responds to main menu FilejExit selections and to messages 

sent by the WM_DESTROY case in the FrameWndProc function. The function deletes 

temporary files by passing the pfl_files and pbd_files flags to the ddete_files function and 

by individually deleting the files not deleted by the ddete_files function. 

case IDM_EXrr: { 

//delete the temporary files 

ddete_filcs(pU files); 
dekte_fiks(pbd_files); 

unlinkCcurrl .bid*); 

unlink("cun2.bld"); 

unlinkCabsmlesset*); 

unliakfductforc.set”); 

unlinkOtempdef”), 

unlinkOemp.inp"); 

ualiakCtenp.prj”); 

UDliakC’thsttorq.set*); 

unliakOwakecalc.set*>; 

unlink(*wkalcirc.set’); 

anliakCtaap.ooO; 

unlinkfoptioat. set'); 

unlinkfdiunp.flg'); 

unliakCoptiin.dat’); 

naliak("tiaie.dat"); 

anliakCear.daf); 

aattakCaBload.dat-); 

unlink(*pbddef.dat*); 

aaUBkCpbdadal.dat"); 

Baijnfc Cp |ida dm 2 dat*); 
unliakTptxlseO; 
oalinkCglauedcoe*); 
ualiakr > d2xcl.bH)*): 
ualink(”dZxc2. iiip*); 


255 






1 


uaiiak("x2bl.iap"); 

uaiiak("x2b2.up"); 

natinkCpbdadBULBaa*); 

uaiiiikCcunpbd.vel"); 


The IDMEXTT case then frees the timer for use by other applications and sends a 

request to the Windows™ environment to terminate the program. The case is then 

terminated. 

//delete die timer 

KiUTuner(hWnd,ID_TIMER); 

Po«tQuitMesnge(0); 

break; } 

The IDMABOUT case calls the About dialog box and terminates when the dialog 
box terminates. 

case IDM ABOUT: { 

// this handles the About dialog box 
DLGPROC DlgProc; 

DlgProc “ (DLGPROC)MakeProcInstance((FARPRC>C)ABOUTDlgProc, ghlnstance); 
DiaiogBoxCghlnstance, "ABOUT", hWnd, DlgProc); 

FreeProcInstancc((FARPROC)DlgProc); 

break; 


Messages not handled by a prior case in the switch are referred to the default 
Windows™ frame procedure by calling the DefFrameProc function. The DefFrameProc 
function receives a handle to the frame window, a handle to the client window, and 
unsigned integer that specifies the message being sent, and 16 and 32 bit pa-ameters with 
additional information that is a function of the message. The function processes the 
message and returns the processing result, which is also a function of the message that is 
sent. 
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APPENDIX CJ. 


The PLL MDI Child Window Procedure functions. 




C.2 The PLL MDI CUM WimMw Procedure functions. 

Child windows in a MDI application receive messages in the same way as their 
non-MDI application counterparts. The messages are not handled by the FrameWndProc 
but rather by individual child window procedures. Normally there is one child window 
procedure for each type of child window in a MDI application, and this is the case in PLL. 
The MDIChildBladeWndProc, MDIChildWakeWndProc, MDIChildOutputWndProc, and 
MDIChildPlotWndProc functions will be described in this appendix. 

C.2.1 The PLL MDIChildBladeWndProc and MDIChildWakeWndProc functions. 

The declarations of the MDIChildBladeWndProc and MDIChildWakeWndProc 
functions are the same as those of the MainWndProc functions described in Appendices A 
and B and of the FrameWndProc function described in section C. 1.2. Their operation is 
also quite similar. Both of the child window procedures use switches to respond to 
messages passed by the Windows™ environment as a result of user action. 

Both the MDIChildBladeWndProc function and the MDIChildWakeWndProc 
function respond to WMPAINT commands. The MDIChildBladeWndProc function 
responds simply by calling the paintbld function and returning zero, indicating that the 
message was handled. The paintbld function receives the handle to the Blade Viewer 
window and draws the blade and ring parameter plots on the window. Messages other 
than WM PAINT that are received by the Blade Viewer window are referred to the 
default MDI Child window procedure, DefMDIChildProc. 

LRESULT CALLBACK _export MDIChildBladeWndProc(HWND bWnd, UINT message, WPARAM 
wParam, LPARAM IParam) 

{ 

switch (message) 

{ 

case WM PAINT: { 

//respond to WM PAINT messages by calling the paintbld function 




paialbkKhWad); 
return 0; 

} 

> 

//refer Menace* not kindled above to the default windows MDI child window procedure 
return DefMDIChildProc(hWiid, message, wParam IPanun); 

} 

The response of the MDIChildWakeWndProc function to a WM PAiNT message 
is the same as the MDIChildBladeWndProc function except that the paintwake function 
is called instead of the paintjbld function. The paintwake function receives the handle to 
the Wake Viewer window and draws the project wake profile on the window. If the 
project has two components, the user may toggle between the wake profiles for the first 
and second components by double clicking the left mouse button while the cursor is on the 
Wake Viewer window. This action causes a WM LBUTTONDBLCLK message to be 
sent to the MDIChildWakeWndProc function. 

LRESULT CALLBACK _export MDIChildWakeWmiPnxtflWND hWnd, U1NT message, WPARAM 
wParam, LPARAM IPanun) 

{ 

switch (message) 

{ 

case WM LBUTTONDBLCLK: { 

Upon receipt of a WM LBUTTONDBLCLK message, the case tests the LDEV 
integer variable to determine if the project is a single component project. If the current 
project has only one component the case is terminated immediately by returning zero, 
indicating to the Windows™ environment that the case was handled. 

//if there is only one component terminate the case 
il(LDEV=l) return 0; 





» 
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If there is more than one component, a switch is used to toggle the 
componentflag integer variable from zero to one or one to zero depending on its initial 
state. The component flag variable value controls the selection of the wake profile that 
will be drawn by the paintwake function. After this is done, the Invalidate^;* function 
is used to cause the Wake Viewer window to be redrawn since the data to be displayed on 
the screen has changed. A value of zero is then returned to indicate that the case has been 
handled. 

//if there is more than one component, toggle the componentflag and repaint the screen 

switch(component_flag) 

{ 

case 0: { component_flag= 1; break; > 
case 1: { component_flag=0; break; } 

1 

InvalidateRectfhWnd, NULL, TRUE); 
return 0; 


case WMPAINT: { 

//respond to WM PAINT messages by calling the paintwake function 


paintwake(hWnd); 
return 0; 


As in the case of the MDIChildBladeWndProc function, if a message is not 

handled by the switch, it is referred to the default MDI Child window procedure. 

//refer messages not handled above to the default windows MDI child window 
//procedure 

return DefMDIChildProc(hWnd, message, wParam, IParam); 
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C.2.2 The PLL MDIChildOutputWndProc function. 

The declaration and operation of the MDIChildOutputWndProc are similar to the 
declaration and operation of the functions described in section C.2.1 above. It is, 
however, a more complicated function due to the addition of three cases in the switch and 
the large number of different output files that may be selected for viewing. 

LRESULT CALLBACK .export MDIChiIdOutputWndProc(HWND hWnd, UINT message, WPARAM 
wParam, LP ARAM IParam) 

{ 

switch (message) 

{ 

The first message handled in the MDIChildOutputWndProc function is the 
WM LBUTTONDBLCLK message. Double clicking the left mouse button on the 
Output Viewer window causes the display to index to the next available file. If there are 
no output files to display, as indicated by the absence of the summary.out file, the case 
returns zero to indicate that the message was handled and takes no further action. 

case WM LBUTTONDBLCLK: ( 

//if there is no summary.out file there is no reason to change the output.flag 
// so just terminate the case 

if(access(*summary.out", 0) != 0) 

return 0; 

If there are output files to display, the case first resets the scroll bar position to the 

top of the page so that the next file in the sequence will be displayed starting at the top. 

//set Scroll.Pos to zero so the new page will print at the top of the page 
// and update the scroll bar position 

Scroll.Pos « 0; 

SetScrollPos(hWnd, SB.VERT, Scroll.Pos, TRUE); 


» 


» 


» 
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Next, a switch is employed to determine which file is to be displayed based on 
which file is currently displayed. The existing files are displayed in the following order. 


1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 

9. 

10 . 
11 . 


summaiy.out. 

detail!.out. 

detail2.out. 

stress.out. 

duct.geo. 

fards.out. 

nonaxi.cir. 

nonaxi.for. 

nonaxi.cmp. 

nonaxi.har. 

pbdout.ktq. 


When the outputflag value has been indexed, the InvalidateRect function is used to cause 

the screen to be repainted and the case is terminated. 

switch(outputflag) 

{ 

case summary: { output flag = detailed 1; break; > 

//skip over detailed2 if there is only one component 

case detailed 1: { if(LDEV=l) output flag - abs rules calc; 

else outputflag “ detailed2; 

break;} 

case detailcd2: { output flag * absrulescalc; break;} 
case abs_rules_calc: { 

//go to the duct geometry case if there is a duct.geo file “** 

if(access("duct.geo", 0) =■= 0) 

output flag - duct^geometry; 

//go to the downstream velocities case if there is a fards.out file 
else 

if[accessffards.out", 0) — 0) 

outputflag = downstream_velocities; 

//go to the non_axisym_dr case if there is a nonaxi.cir file 
else 

if(access("nonaxi.cir", 0) ” 0) 

output flag * non axisym eir, 

else 

//go to the pbdktq case if there is a pbdout.ktq file and the pbd flag is set 

ifl(pbd_flag)AA ~ 
acces^'pbdoutktq", 0) *■= 0) 
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//otherwise go back to the summary i 


break;} 


output .flag ” pbdktq; 


output_flag ■ summary, 


case duct_geometry: { 

//go to the downstream velocities case if there is a fiuds.out file 
iffaccessCfards.out*, 0) — 0) 

output_flag - downstreamvdodties; 

//go to the nonaxisymeir case if there is a nooaxi.dr file 
else 

il(access(’nonaxi.cir", 0) = 0) 

outputflag ” nooaxisymcir, 
else 

//go to the pbdktq case if there is a pbdoutktq file and the pbd_flag is set 

if((pbd_flag)*Aaccess(*pbdoutktq", 0) — 0) 
outputflag - pbdktq; 

//otherwise go bade to the summary case 

else 

outputflag = summary; 

break;} 

case downstream_velocities: { 

//go to the nonaxisymeir case if there is a nonaxi.cir file 
ifiaccessfnonaxi.cir", 0) = 0) 

outputflag = nonaxisymeir, 
else 

//go to the pbdktq case if there is a pbdoutktq file and the pbd_flag is set 
ifi[(pbd_flag)AAa<xess("pb(k)ut.ktq", 0) = 0) 
outputflag = pbdktq; 

//otherwise go back to the summary case 
else 

output_flag = summary; 


break;} 

case non axisym eir: { output flag = non_axisym_for, break;} 


nonaxisymfor: {output flag = nonaxisymemp; break;} 


case non axisym emp: { output flag ■ noo ax i sym har, break; } 
case nonaxisymhar: { 

//go to the pbdktq case if there is a pbdoutktq file and the pbd_flag is set 

ifi(pbd _fl ag>AAacccss("pbdoutktq" t 0) “ 0) 
output flag - pbdktq; 

//otherwise go bade to the summary case 

else 

output flag - summary; 
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break;} 

care pbdktq: {output flag “ summary; break;} 

} 

InvalidateRcctfhWnd, NULL, TRUE), 
return 0; 

} 

The first additional case in the MDIChildOutputWrvdProc function is the 
WMRBUTTONDBLCLK case The WM_RBUTTONDBLCLK case responds to the 
user double clicking the right mouse button on the Output Viewer window. This causes 
the textcolor flag to be indexed in a continuous loop from the default blue to green, to 
red, to black, and back to blue as the user continues to double click the right mouse 
button. It is accomplished with a switch similar to the one described in the 
WM_LBUTTONDBLCLK case above. After the textcolor flag has been altered, the 
InvalidateRect function is used to cause the screen to be redrawn and the case is 
terminated by returning zero. 


case WM RBUTTONDBLCLK: { 

//if the right mouse button is double clicked, the text color is indexed 
//by one increment, starting with blue and progressing through green, red, 
//and Mack then hack to blue 

switchftext color) 

{ 

case blue: {text color = green; break;} 

case green: {text color - ted; break;} 

case red: {text color * black; break;} 

case black: {text color-blue; break; } 

> 

//cause the screen to be repainted once the text color has been indexed 
InvalidateRectfhWnd, NULL, TRUE); 

return 0; 


t 
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The other two new cases are the WM_VSCROLL and the WMJKEYDOWN 

cases. The first refers scroll bar messages to the WMV ScrollHandler function and the 

second refers messages to the WMKeydown Handler function. These functions will be 

described later in this appendix. 

case WM VSCROLL: 

{ 

return HANDLE WM_VSCROLL(hWnd, wParam, lPanun, WMVScroU Handler); 

} 

case WM KEYDOWN: 

{ 

//this case handles keyboard entry 

return HANDLE_WM_KEYDOWN(hWnd,wParam,lParam.WMKeydown_Handlcr); 

} 

The last case in the switch is the WM PAINT case. This case passes the handle of 

the Output Viewer window to the paintout function. The paintout function draws the 

appropriate output file to the Output Viewer window device context. 

case WMPAINT: 

{ 

paintout(hWnd); 
return 0; 

> 

} 

If a message is not handled by one of the cases in the switch, it is referred to the default 
MDI Child window procedure. 

return DefMDIChildProc(hWnd, message, wParam, IParam); 

> 

C.2.3 The PLL MDIChildPlotWndProc function. 
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The MDIChildPlotWndProc is similsr to the MDIChildOutputWndProc function 
d escribed in section 0,2.2 above, but without the cases made necessary by the Output 
Viewer window scroU bar. 

LRESULT CALLBACK .export MDIOuidPlotWixlProc(HWND hWnd, UINT message, WPARAM 
wPanm, LPARAM IParam) 

{ 

switch (message) 

{ 


The WMLBUTTONDBLCLK case responds to the user double clicking the left 
mouse button on the Plot Viewer window. This action causes the plot displayed to index 
in a continuous loop through the available plots. This is more straightforward than the 
Output Viewer case because there is a lower degree of variability in the plots available. 


case WMLBUTTONDBLCLK: { 

//if there are no plots to draw and pbd has not been nut, terminate the case 


If there are no PLL and no PBD plots to draw, the case is terminated. Otherwise, 
a switch is used to alter the plot_page variable value based on the plot currently displayed 
and the plots available. The InvalidateRect function is then used to cause the screen to be 
redrawn and the case is terminated. The available plots are displayed in the following 
order: 


1. PLL page 1. 

2. PLL page 2. 

3. PLL page 3. 

4. PLL page 4. 

5. PBD input blade B-spline control net ml the resultant blade. 

6. PBD output blade grid for each blade, centerbody, transition wake, and hub and 
duct images as applicable. 

7. velocities at the blade control points. 

8. contour plot of the bound circulation strength. 

9. radial circulation distribution. 

10. circumferential mean velocity plot. 
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if(!dnw_pk*_fiag AA Ipbdjlag) 


I 


return 0; 

//if the left mw button is double clicked os the plot page, index through the page* 

switch(plot_page) 

{ 

//p4ot_page values 0-3 cause pU plots to be drawn 

cueO:{ pk^_jagC 1 • break; / 
case 1:{ plot_ptfc - 2; break; } 
cace 2:{ pkx_page “ 3; break;} 

//If the pbd flag is act, index through the pbd plots 

case 3:{ if^pbdflag) pkxjage = 4; 

else pkrtjnge =-0; break;} 
case 4:{ pkxjage “ 5; break; > 
case 5:{ pkxjnge = 6; break; > 
case6:{ pkxjage-7;break;} 
case 7:{ pkxjpage * 8; break; } 

//if the pbdouLcmv file exists, set pkx_page to 9 and plot that file 
// otherwise start over with case 0 if pll plots are to be drawn and case 
// 4 if they are not to be drawn 

case 8:{ ifiaccessCpbdouLcmv*, 0) = 0) plotjage - 9; 
else if(draw_j^ot_flag)plotjage - 0; 
else pkxjage ■ 4;break; > 

//start over with case 0 if pd plots are to be drawn and case 4 if they are 
//not to be drawn 

case 9:{ ii(draw_plot_flag)plot_page =■ 0; 
else plot jage ■ 4; break; > 

} 

InvalidateRectfhWnd, NULL, TRUE); 

leturn 0; 

> 


ft 


ft 


ft 


ft 


ft 


ft. 


ft 


The user calls the PBD Plot Geometry dialog box by double clicking the right 
mouse button with the cursor on the Plot Viewer window while a PBD plot is displayed. 
If a multiple component PLL plot is displayed, the WM_RBUTTONDBLCLK message 
causes the plot displayed to index on a continuous loop between the component one plot, 
the component two plot, and the combined plot. 
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WM RBUTTONDBLCUC: { 


« 


« 


4 


4 


4 


4 




« 


« 


« 


//If the fight sow button is double clicked oa the plot page andapbd 
// plot ie dhphycd, lead a mrwigr to the frame window to call the 
//pbd pilch, roll, yaw dialog box 

If the pk>t_page value is greater than three, then a PBD plot is being dipUyed. The 
SendMessage function is used to send s IDM_EOITPITCHROLLYAW message to the 
FrameWndProc to cause the PBD Plot Geometry box to be called and the case is 
terminated. 

if(plot_pag03){ 

SendMessage(hFrameWnd,WM COMMAND.IDM EDITPITCHROLLYAW, 
MAKELONG(0.0)); 

return 0; 

> 

If the plot_page value is not greater than three, then LDEV is tested. If the project is a 
single component project the case is terminated. If the project has two components, then 
the plot component flag is indexed on a continuous loop so that the component one, then 
the component two, and then the combined component plot will be displayed. The screen 
is then repainted and the case is terminated. 

//if pU plots are being displayed and there is only one component, terminate the case 
iflLDEV—1) return 0; 

//for multiple components use the following switch to index through the rases 
// where component 1 is plotted, component 2 is plotted, and both are plotted 

switch(piot componcn t _flag) 

{ 

case 0: { plot component.flag^l; break; > 
case 1: {ptoTcomponent_flag»2; break; } 
case 2: { plot component flag-©; break; } 

} 

//cause the screen to be repainted 

InvalidatcRectfhWnd, NULL, TRUE); 
return 0; 
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The WM_PAINT case is used to control the plots displayed on the Plot Viewer 
window. A PAINTSTRUCT structure, a handle to a device context, a pointer to a file 


structure, and a POINT structure are declared, 
case WM_PAIKT: { 

PAINTSTRUCT ps; 

HDC PtotPaintDC; 

FILE *plot; 

POINT origiii-{320,240>; 


//paint structure 

//handle of the device context 

//pointer to a file structure 

//origin of plot in screen 
// logical coordinates 


If a PLL plot page is to be displayed, the case passes the handle of the Plot Viewer 
window to the paint_plot function and terminates the case by returning zero. 

//if a pll page is to be plotted, call the pointplot function and terminate the case 
if(piot_page<4){ paintplatfhWad); return 0; > 


If a PBD plot is to be drawn, the sine and cosine of the global pitch, roll, and yaw 
values are calculated. These values are used by the functions that draw the wireframe 
drawings using the PBD output files. The case then uses the BeginPaint function to 
prepare the Plot Viewer window for painting. 

//calculate the cosine and sine of the roll, pitch, and yaw prior to painting a pbd page 

cosroll ’■cosfroll); 

sinroll =sin(roU); 

co«_yaw -eostyaw); 

sinjrsw -sinfyaw); 

cosjpitch *cos(pitch); 

sin_pitch -sin(pitch); 

// create the device context 

PIotPainiDC - BeginPaint(hWnd, &ps); 









« 


4 


4 


4 


4 


4 


4 


4 


4 
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The WM_PAINT case then uses a switch to control the files and functions used to 
draw output to the Plot Viewer window. The switch is identical to the switch used in the 
IDM PRINTPBDPLOTS case in the WMCommandHandler function described in detail 
in section C. 1.3. 

/Aim a switch to determine which pbd output files are to be plotted and call the appropriate plot ftinction 
*witch(plot_page){ 
csm4:{ 

//if the pbdoutibg file exists, open it and plot it 

if(access("pbdouL ibg", 0) — 0) { 

plot - fopen/’pbdotit.ibg", V); 
paint_graphs(PlotPaintDC, origin, plot, 0); 
fdose(plot); } 
if{access("pbdout.bsn", 0) — 0) { 

plot - fopcn("pbdouLbsn", V); 

paint_graphs(PlotPaintDC, origin, plot, 1); 

fclose(plot); } 

break; 

> 

case 5: { 

if(access("pbdo(itbub a , 0) *» 0) { 

plot - fopen("pbdout. hub", "r"); 
paint_bub(PlotPaintDC, origin, plot); 
fckwe(plot); ) 

ifltaccessCpbdouthdi", 0) =» 0) { 

plot * fopenf pbdoutbdi", V); 

paint:_graphs(PlotPaintDC, origin, plot, 1); 

fckwe(plot); ) 
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if(acceaa(”pbdout.obg > . 0) — 0) { 

plot “ fopeaCpbdouLobg”, V); 

point:_gnphs(PlotPaiatDC, origin, plot, 0); 

fdo«(piot); > 

break; 

> 

ca»6:< 

if(acce*«(’pbdoutvq)*, 0) — 0) { 

plot * fopenCpbdoutvcp", 'r*); 
pointjvcp(PIotPaintDC, origin, plot); 
fcloee(plot); ) 

break; 

> 

ca«7:{ 

//the circulation contour plot file may be either a gsp or a .sol file 
ifl[access(“pbdout.gsp", 0) — 0) { 

plot - fopen("pbdout.gsp", V); 
paintjjsp(PlotPaimDC, origin, plot); 
fck»se(plot); } 

else ifl[access("pbdoutsol", 0) — 0) { 

(riot - fbpenCpbdpulsoT, Y); 
paintjpfKPIotPaintDC, origin, plot); 
fck*e(plot); ) 

break; 

} 

case8:{ 

//the radial circulation distribution file may be either a rdc or a sgr file 
iflaccessCpbdoutrdc", 0) — 0) { 


plot - fbpeafpbdouLnic", Y); 




paiat_rdc(PlotPaintDC. plot); 


fckxe(plot); ) 

ebe iflacceasCpbdouLsgr'',0) — 0) { 
plot - fopeaCpbdouLsgr*, *r*); 
point_rdc(PlotPaiatDC, plot); 
fck»e(plot); } 

* -*— 

Pit Mr, 

> 

case 9: { 

if^accessC’pbdout cnrv", 0) =■* 0) { 

plot - fopcn("pbdout.cmv", V); 
paint_cmv(PlotPaintDC, origin, plot); 
fckwe(plot); } 

break; 

> 

> 

The last action taken by the WM PAINT case is to close out the paint command 

using the EndPaint function and to return zero to indicate that the case was handled. 

//close out the paint command and terminate the case 

EndPaintfhWnd, &ps); 

return 0; 

> 

) 

Messages not handled by the switch are referred to the default MDI Child window 
procedure. 

//refer messages not handled above to the default windows MDI child window procedure 
return DefMDIChildProc(hWnd, message, wParam, IParam); 

} 


I 








• • 
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APPENDIX CJ 


The PLL dialog functions. 




CJ The PLL dialog functions. 

The PLL Windows™ application makes extensive use of dialog boxes. Each 
dialog box requires two support functions. The dialog box functions used in PLL are very 
similar to those described in Appendices A.4 and B.2. The PLL dialog functions are listed 
below and are described briefly by text interspersed through the code. 

C.3.1 The Run Time Settings dialog box functions. 

The WMRunTimeDlgCommandJHandler and RunTimeDlgProc are used to 
initialize and then handle input from the Run Time Settings dialog box. The dialog box 
makes use of edit controls for receiving numerical input, check boxes for setting options, 
and auto-radio buttons for allowing the user to select from mutually exclusive options. 

void WMRunTimeDlgCommand_H ».idter(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify) 

{ 

char input[20] = //character string for i/o 

switch(id) 

{ 

case IDMOKRUNTIME: { 

HWND hCtrl; //handle to a dialog control 

//read the data from the Run Time Settings dialog box 

GetDlgltemTextfhDlg, IDM_HORSEPOWER, input, 20); 

horsepower = atof(input); 

GetDlgltemTextfhDlg, IDM_THRUSTCOEFFICIENT, inpuCSO); 

thrust_coefficient = atof( input); 

The procedure used to interrogate the auto-radio buttons and checkboxes is 
slightly different than the procedure used in the previous programs. The previous 
programs declared a DWORD variable and assigned the return value of the SendMessage 
function to the variable. The variable was then tested using an if statement and the flag 
value was set appropriately. In this case, the flags are set up so that a checked state 
indicates a value of one for the flag and an unchecked state indicates a zero value. The 
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return value from the SendMessage is cast as an integer value with the "(int)" that 
precedes the function call and the value is assigned directly to the flag. This eliminates the 
need to declare the DWORD and to perform the test using the if statement. 


hCtrl - GetDIgltemfhDlg, IDMOPTTMLZERPM), 
optimizerpm - (int)SendMessage(hCtrl, BMGETCHECK, 0, OL); 

hCtrl * GctDlgItem(hDlg, IDM OPTIMIZEDIAMETER); 
optimizediameter = (int)ScndMessage(hCtrl, BMGETCHECK, 0, OL); 

hCtrl - GetDlgItem(hDlg, IDM MAXIMIZETHRUST); 
maximizethmst = (int)SendMessage(hCtrl, BMGETCHECK, 0, OL); 

hCtrl = GetDlgltemfhDlg, IDM_NOOPTIONS); 

noruntimeoptions = (int)SendMessage(hCtrl, BMGETCHECK, 0, OL); 

hCtrl = GetDlgItem(hDlg, IDM_UNLOAD); 

unloadflag = (int)SendMessage(hCtrl, BMGETCHECK, 0, OL); 

hCtrl = GetDlgItem(hDlg, IDM MATCHEAR); 

match_EAR_flag = (int)SendMessage(hCtrl, BM GETCHECK, 0, OL); 

hCtrl = GetDlgItem(hDlg, IDM_USECURRBLD); 
usecurrbladc = (int)SendMessage(hCtrl, BMGET CHECK, 0, OL); 

hCtrl = GetDlgItem(hDlg, IDMNONAXISYM); 

evalnonaxistator = (int)SendMessage(hCtrl, BMGETCHECK, 0, OL); 

hCtrl = GetDlgItem(hDlg, IDM WRITEPBDFILES); 
pbd_file_flag = (int)SendMessage(hCtrl, BM GETCHECK, 0, OL); 


The run_ok_flag variable is a global integer variable that is used to determine 
whether the user selected the "OK" button or the "CANCEL" button. This allows the 
program to terminate the File|Run case if the user changes his or her mind, 
mnokflag = 0; 

EndDialog(hDlg, 0); 
break; 

} 

case IDM CANCELRUNTIME; { 


mnokflag = 1; 
EndDialog(hDlg, 0); 
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BOOL CALLBACK export RimTuneDlgPioc(HWND hDig, UINT menage, WPARAM wParam, 
UP ARAM IParam) 

{ 

char input{20] - //character string for i/o 

swilch(memgB) 

{ 

can WM INITDIALOG: { 

//print the current values in the Run Time Settings dialog box 

sprintf(uiput,*%9. lf\horsepower); 

SetEMgItemText(hDlg.IDM_HC)RSEPOWER, input); 

^printf(iiiput,'%4.3r,thnist_coe£Bcient); 

SetDlgItemText(hDlg,IDM_THRUSTCOEFFICIENT,input); 


The functions in PLL make use of the CheckDlgButton function to initialize check 
boxes and auto-radio buttons. The CheckDlgButton function receives a handle to the 
dialog box, the identifier of the control, and an unsigned integer check state. The function 
then checks or clears the control as indicated by the state. In these cases the value of the 
flag is cast as an unsigned integer by using "(UINT)” preceding the variable. A value of 
one causes the associated button to be initialized in a checked state, and a zero value 
causes the button to be initialized in a cleared state. 


CheckDlgButton (hDig, IDM_OPTIMIZERPM,_ 

CheckDlgButton (hDig, IDM OPTTMIZEDIAMETER, 

CheckDlgButton (hDig, IDM~MAXIMIZETHRUST, 

CheckDlgButton (hDig, 1DM~NOOPTIONS, 

CheckDlgButton (hDig, IDM UNLOAD, 

CheckDlgButton (hDig, IDM MATCHEAR, 

CheckDlgButton (hDig, EDMUSECURRBLD, 

CheckDlgButton (hDig, IDM NONAXISYM, 

CheckDlgButton (hDig, IDMWRITEPBDFILES, 

return TRUE; 

} 

case WM COMMAND: { 

return (BOOL)HANDLE WM COMMAND(hDlg, wParam, tParam, 
WhRunTimeDlgCommand_Handler); 


(UINT)optimizejrpm); 

(UINT)optinuze_diaineter); 

(UINT) maxi mizethrust); 
(UINT)no_runtime_options); 
(mNT)unload_flag); 
(UINT)match_EAR_flag); 
(UINT)use_curr_blade); 
(UINT)eva]_nonaxistator); 
(UINT)pbd_fileflag); 


« 
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) 

) 

return FALSE; 


CJ.2 The Expanded Area Ratio dialog box functions. 

The Expended Area Ratio dialog box requires four separate functions. The 
WMEARlOTgCommand_Handler, WMEAR2DlgCommand_Handlcr, EARlDlgProc, and EAR2DlgProc 
functions are shown below. Four functions are required because single and multiple 
component boxes are provided. The identifiers used in the angle component case for 
initializing the expanded area ratio value and receiving user input are also used for 
component one in the multiple component case. This reduces the total number of 
identifiers required and allows for reuse of some of the code. 


void WMEARlDIgCommand_Handler(HWND hDtg, int id, HWND hwndCti, UINT codeNotify) 

{ 

char input(20] ” //character string for i/o 

switched) 

f 

case IDM_OKlEAR: { 

GetDlgltemTextfhDlg, IDM1EAR, input, 20); 

EAR(0] - atof( input); 

EndDialogfhDig, 0); 


BOOT. CALLBACK export EARlDlgProc(HWND hDlg, UINT message, WPARAM wParam, 
LPARAM IParam) 

{ 

char input(20] - //character string for i/o 

switch(tnessage) 

{ 

case WM INITDIALOG: { 


sprintf(input,"%5.4rBAR(01); 
SetDlgItemTexl(hDIg.IDM_lEARD AT,input); 
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4riatri^iO45.4r.EARf0]); 
SetDigItemText(hDlg.IDM_lEAR, input); 

return TRUE; 

} 


case WM COMMAND: { 

return (BOOL)HANDLE WM COMMAND(hDlg. wParam, IParam, 
WMEARlDIgCotmnand Handler); 

} 

} 

return FALSE; 

> 

void WMEAR2Pl«Command Handkr(HWND hDlg. int id, HWND hwndCtl, UINT codeNotify) 

{ 

char input(20] - //character string for i/o 

switch(id) 

{ 

case IDMOK2EAR: { 

GetDlgltemText(hDlg. IDM1EAR, input, 20); 

EARJO] - alof^input); 

GetDlgItemText(hDlg, IDM 2EAR, input, 20); 

EAR(l]-atoi(iaput); 

EndDialogOiDIg. 0); 


break; 

> 


> 


BOOL CALLBACK _export EAR2DlgProc(HWND hDlg, UINT message, WPARAM wParam, 

LPARAM IParam) 


{ 

* . char input{20] -//character string for i/o 

switch/message) 

{ 

case WM INITDIALOG: { 


sprintfl[input,"%5.4rjEAR[0]); 
SetDlgItemText(hDlg,IDMlEARDAT,input); 

sprintf(input,’%5.4r,EAR( 1]); 
SetDlgItemText(hDlg,IDM_2EARDAT,input); 

sprintf(input,*%5.4f , ,EAR(0]); 

SetDlgItemText(hDlg,IDM_lEAR,input); 

sprintf(input,"%5.4r,EAR( 1 ]); 
SetDlgItcmText(hDlg.IDM_2EAR,input), 
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return TRUE; 

> 

can WM_COMMAND: { 

return (BOOL)HANDLE WM COMMAND(hDlg. wParam, IParam, 
WMEAR2DlgCommand Handler); 

> 

> 

return FALSE; 

} 


CJJ The Glnuert Coefficients dialog box functions. 

The Glauert Coefficients dialog boxes also require four functions to handle the 
single and multiple component cases. Since the coefficient values and the associated user 
input are handled as floating point arrays, the identifiers for the static text controls used to 
display the current values of the coefficients and the identifiers for the edit text controls 
used to receive the unload fractions are defined sequentially. This allows the controls to 
be initialized and read using for loops and thereby minimizing the amount of code needed 
and the size of the executable file. 


void WMGlauert lDlgConunandHandlcr(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify) 

{ 

char input(20] * //character string for i/o 

switcb(id) 

{ 

case IDM_OK 1 GLAUERT: { 

int k; * //loop counter 

//loop through and read all of the Glauert coefficient unload fractions 
for(k-0;k<NGC*++){ 

GetDlgItemText(hDlg, IDM 1 GLAUERT 1+k, input, 20); 
GC_UNLOAD_FRAC[0] [kf- atof(input); 

> 

} 

case tt>M_C ANCEL1 GLAUERT : { 


EndDialogfhDlg, 0); 




« 
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4 


} 


t - 1 _ . 

wUKt 


} 


> 


BOOL CALLBACK export GhniertlDlgProcfHWND hDIg. UINT message. WPARAM wParam, 

LPARAM IPartua) 

{ 

dir iifd(20]> M ; //character string for i/o 

iat k; 

WfUc^iOTnr) 

{ 

case WM_INITDIALOG: { 


for(k-0; k<NGC;k++) { 

sprintf(input, ,, %3.4r,GC[0)[kI); 
SctDlgItemText(hDlg.IDM_lGCl+k, input); 


return TRUE; 


> 


case WM_COMMAND: { 


> 


return (BOOL)HANDLE_WM_COMMAND{hDlg, wParam, IParam, 
WMGlaucrtlDIgCommandHandlcr); 


} 


return FALSE; 

} 

void WMGlauert2DlgCommand Handler(HWND hDIg, int id, HWND fawndCtl, UINT codcNotify) 

< 

char input[20] - //character string for i/o 

switch(id) 

{ 

case IDM_OK2GLAUERT: { -4- 

int k; //loop counter 

//loop through and read all rtf' the Glaucrt coefficient unload fractions for both components 
&r(W>; k<NGC*++) { 

GetDlgltemTcxtChDlg, IDM IGLAUERTl+k, input, 20); 

OC_UNLOAD_FRAC10J[k] - atof(input); 

GctDigItcmTcxt(hDlg, IDM 2GLAUERTl+k, input, 20); 

GC_UNLOAD_FRAClll|k] - aloflinput); 

> 

) 
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EDM_CANCEL2GLAUERT: { 


EadDfcriogfbDlg, OX 
break; 


BOOL CALLBACK export GJjuert2DlgProc(HWND hDlg. UINT 

LPARAM lPuam) 


char input(20] ■ 

to K 

iwiteh( message) 

{ 

cate WM INITDIALOG: { 

for(k-0; k<NGC;k++) { 

sprintf(ujput,'‘%5.4P,GC[0] [It]); 
SetDlgItemText(hDlg,IDMlGCl+k, input); 

spriad(iii|wt. a %S.4r,GC[lHk]); 
SetDlgItemText(hDlg,IDM2GCl+k, input); 


WPARAM wParam, 


//character string for i/o 


return TRUE; 


case WM COMMAND: { 

return (BCX3L)HANDLEWM_COMMAND(hDlg. wParam, IParam, 
WMGlauert2DlgCommand Handler); 

} 

} 

return FALSE; 


G3.4 The PBD Skew/Rake Settings dialog box functions. 

The PBD Skew/Rake Settings dialog boxes also require four functions. In this 
case, however, the first two functions initialize and retrieve data from the component one 
box and the last two functions initialize and retrieve data from the component two box. 
These functions, like the dauert Coefficients functions, make use of the sequential nature 
of the data by using for loops and sequentially defined identifiers. They are also coded to 
allow the user to cause the Command Handler functions to calculate skew and/or rake 
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values for intermediate radii by supplying hub and tip skew and/or rake values and 
checking the appropriate box(es). 




« 


« 




* 






void WMSkewRakelEHgCommand Handkr(HWND hDtg, int id, HWND hwndCtl, UINT codeNotily) 

{ 

char input(20] ■ //character string for i/o 

HWND hCtri; //handle to a dialog 

control 

switched) 

{ 

case IDMOK1SKEWRAKE: { 
intk; 

//loop through and read all of the drew and rake inputs for component #1 

for(k-0; k<MRPIN[0) ;k++) { 

GetDlgItemTcxt(hDlg, IDM_lSKEWl+k, input, 20); 
pbd_skew(k][0] - atoffinput); 

GetDlgItemText(hDig, IDM_lRAKEl+k, input, 20); 
pbdrake[k][0] ■ atof(input); 

} 

hCtri - GetDlgItem(hDlg. IDM LINEARSKEWl); 
linear_skew_flag{0]»(int)SendMessage(hCtrl, BMGETCHECK, 0, OL); 

hCtri - GetDlgItem(hDlg, IDM LINEARRAKE1); 

lincar rakc_flaglO] - (int)ScndMessage(hCtri, BM GETCHECK, 0, OL); 


If the linearskewflag was set by the user action of checking the "Use Linear 
Skew" check box, the program uses a for loop to calculate the skew value at each 
intermediate radius by interpolating between the hub and tip values. 


//if the linear skew flag is set for component #1, calculate a linear skew distribution for component #1 
if(linearjskew_flag(0]) 

for(fc“lJt<MRPIN[0]-l Jc++) 

pbd skewfkHOhpbd skew[0][0]-Kpbd skew(MRPIN[0]-lH0]-pbd skcw[0][0]) 
*(XRPIN[kH0]-XRPIN[0)[0]y(XRPIN[MRPIN(0]*l )[0]> 

XRPINIOHOI); 
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The same process is used for the rake settings. 

//if the Beer like flag iaaet fcrcorepQec e til.calcuiaiea linear rake distribution for c omp one n t #1 
d(liaear_rafce_fies(OI} 

for(k-l*<MRPTNIO]-lJc++) 

pbd rake{k)[0)-pbd iake(0][0]-Kpbd nke(MRPIN|0)-l]iO)-pbd rake(0][0]) 
*<XRPINIkTl0J-XRPIN[0JIO)V{XRPINIMRPIN10)-lJI0J- 

XRHNIO]|OD; 


> 

caae H)M_CANCEL1SKEWRAKE: { 


EndDialog(hDlg, 0); 
break; 

} 


> 


BOOL CALLBACK export SkewRakelDlgProc(HWND hDIg. UINT message, WPARAM wParam, 

LPARAM IParam) 

{ 

char input(20]» //character string for i/o 

int k; 
switdi( message) 

{ 

case WM INITDIALOG: { 

for(k=0; k<MRPIN[OJ;k++) { 

sprintf(input,*%5.2r,XRPIN[k](0]); 

SetEHgItemText(hDlg,IDM_lRADIUS 1+k, input); 

sprintttinput,"%5.2r,pbd skew(k][0]); 

SetDlgItemText(hDlg,IDM l SKEW 1 +k, input); 

sprintfl;input,"%3.2r,pbd_rake[k](0]); 

SetDlgItemTexl(hDIg,IDM_lRAKE 1+k, input); 

} 

CheckDlgButtoo (hDIg, IDM LINEARSKEW1, (UINT)Iinear_skew_fIag{0]); 
CheckDigButton (hDIg, IDM LINEARRAKE1, (UINT)Iinear_rake_flag[0]); 


return TRUE; 


> 


case WM_COMMAND: { 



» 
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retan (BOOL)HANDLE_WM.COMMAND(hDlg, wPanm, IParam, 
WMSkewRakelDtgCommand Handler); 

> 

) 

retan FALSE; 


The process is the same for the component two functions. 

void WMSkewRake2DigCoa»and Handler(HWND feDIg, int id, HWND fawndCd, UINT codeNotify) 

{ 

char iaput(20] - M ; //character string for i/o 

HWND fcCtri; 

switefc/id) 

{ 

case IDM OK2SKEWRAKE: { 
int k; 

foifk-O; k<MRPIN[ 1 J;k++) { 

GctDlgItcmTcxt(hDlg. IDM_2SKEWl+k, input, 20); 
pbd_skew[k][l] - atofQnput); 

GctDlgltemTexUbDlg. IDM_2RAKEl+k, input, 20); 
pbd_iakefk]Ii] - atta(input); 

} 


hCtrl - GetDlgItem(hDlg. IDMLINEARSKEW2); 

lincar skew flagllj - (int)SendMessage(bCtrl, BM_GETCHECK, 0,0L); 

hCtrl - GetDlgltem/hDig, IDM LINEARRAKE2); 
lincar_rake_flag(l) - (int)SendMessagc(hCtri, BMGETCHECK, 0, OL); 


if(linear_skew_flag] I ]) 

Ibi<k-I*<MRPINI1H*++) 


XRPOqoHiD; 


pbd_skew[kJl 1 ]=pbd_skew[0){l]+(pbd dcew[MRPIN[l]-l][l)-pbd skew(0][l]) 
*(XRP!Nlk]Ill-XRPIN[0][l])/(XRPIN[MRPIN[l]-l][l]- 


if(lincar_rakc_flag[ 1 ]) 

for(k-l*<MRPINll]-l*-H-) 

pbd_rakc(k]|ll*pbd_rakef0)[lJ+<pbd_rakc[MRPrN|l]-l]Ill-pbd_rakc[01[l|) 


« 
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xrpin(0){1D; 


•(XRPIN[k][ 11-XRP!N(0)| 1))/(XRPINIMRPIN[ 1]-1 ](1J- 


> 


i IDM_CANCEL2SKEWRAKE: { 
EadDiaktfhDIf. 0); 
break; 


) 


} 


) 


BOOL CALLBACK export Skew1Uke2DIgProc(HWND hDIg, UINT 

LPARAM IParam) 

{ 


WPARAM wParam, 


char input [20] 

int k; 

switchCmessage) 

{ 


//character string for i/o 


t WMJMTDLALOG: { 

for(k-0; k<MRPIN( 1] ,k++) { 

sprintf^ input, *%5.2r,XRPIN[kl[Il); 

SetDlgItemText(hDlg,IDM2RADIUS 1+k, input); 

sprindfinput, *%5.2f\pbd_skew[k][ 11); 

SetEHgItemText(hDlg,IDM_2SKEW 1+k, input); 

sprintfUnput,"%3.2F,pbd_rake{k][l]); 

SctDlgItemText(hDlg,IDM_2RAKE 1+k, input); 

> 

CheckDlgButton (hDIg, IDM UNEARSKEW2, (UINT)iinear skew flagfl)); 
CheckDlgButton (hDIg, IDM L1NEARRAKE2, (UINT)linear_rake_flag[ 11); 


return TRUE; 


} 


case WM COMMAND: { 

return (BOOL)HANDLE_WM_CX)MMAND(hDlg, wParam, IParam, 
WMSkewRake2DlgCommand Handler); 

> 


return FALSE; 


> 


CJ.5 The Steepness dialog box functions. 
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4 


The single and multiple component Steepness dialog boxes also use four functions. 
The boxes are used to provide data to the user so that the exponents used to unload 
components may be selected. The data input using these dialog boxes is then used to 
calculate values used to initialize the Unload Coefficients dialog boxes, 
void WMStecplDlgCommand_Handlci(HWND hDlg. int id, HWND hwndCti, UINT codeNotify) 


char input{ 20] * **; 

switch(id) 

{ 

caselDM OK.lis.TEEP. { 


//character string for i/o 


GetDIgltemTextfhDlg, STEEPNESS 1. input, 20); 

hub_steepness{0]» atoi(input); 

GetDlgltemTextfhDlg, IDM_TIPSTEEPNESS 1, input, 20); 
tip stcepness(0]« atoi(input); 


case IDM C ANCEL1 STEEP: { 
EndDialogfhDIg, 0); 


BOOL CALLBACK _export StceplDlgProc(HWND hDlg, UINT message, WPARAM wParam, 

LPARAM IParam) 


char input{20] = 
switch/message) 

{ 

case WMJNITDIALOG. { 

sprintf/input, *%5.4r,hub_circ[0]); 
SetDlgltemText(hDlg,IDMHUBCIRCl, input); 

spriidf(iiqxd,*%S.4f , ,hub_iadius(0]); 
SetDigItonText(hDlg,IDM_HUBRADIUS 1,input); 

sprintf(input, ,, %5.4r,tip_circ(0]); 

SetDlgltemText(hDlg, IDMTIPCIRC1 .input); 

sprind/input,"%5.4r,tip_radius[0J); 
SetDlgItemText(hDlg,IDM_TIPRADIUS 1 .input); 

return TRUE; 


//character string for i/o 


l 
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L 


) 


caw WM COMMAND: { 

return (BOOL)HANDL£_WMJX)MMAND(hDlg, wParam, IParam, 

~ WMSteep lDlgCommand_Handkr); 

} 

} 

return FALSE; 

} 

void WMSteep2DlgCoinn>andJHaiidkr(HWND hDlg. int id, HWND hwndCtl, UINT codeNotify) 

* char inputl20] - //character string for i/o 

switch/id) 

{ _ 

case IDM_OK2STEEP : { 

GetDIgltemText/hDlg, EDM HUBSTEEPNESS1, input, 20); 
hub_steepness(0] = atoi(input); 

GetDlgItemText(hDlg, IDM_TIPSTEEPNE SSI, input, 20); 
tip_steepness(Oj = atoi(input); 

GetDlgltcmTextChDig, IDM_HUBSTEEPNESS2, input, 20); 
hub_steepness[l] * atoi(input); 

GetDlgI tcmT ext(hDIg, IDM TIPSTEEPNESS2, input, 20); 
tip_steepness|l] “ atoi(input); 

> 


case IDM_CANCEL2STEEP; { 
EndDialog(hDlg, 0); 


BOOL CALLBACK export Steep2DlgProc(HWND hDlg, UINT message, WPARAM wParam, 

LPARAM IParam) 

* char input(20] - //character string for i/o 

switch/message) 

{ 

case WM INITDIALOG: { 

sprintf(input,*%5.4r,hub_circl01); 

SetDlgItemText(hDlg,IDM_HUBCIRC 1, input); 

sprintf/input,*%5.4f,hub_radius[0]); 
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SetDlgItcmTcxt(hDlg,IDMHUBRADIUS 1 .input); 

< 

• 

i 

sprimf(input,“%5.4r.tip_circ[0]); 

SetDlgItcmTcxt(hDlg,IDMTIPCIRC 1 .input); 

1 

• 


^>rintf(input.*%5.4r > tip_radiusi0]); 

SctDlgItemTcxt(M)lg,IDM_TlPRADIUS 1 .input); 

«' 

® 

1 

sprimfl[input,"%5.4r,hiib_circ( 1 ]); 

SetDIgItcmTcxt(hDlg,IDM_HUBCIRC2,input); 

*' 



sprintf^input,*%5.4r,hub_radius( 1 ]); 

SctDlgltemTcxt(hDlg,IDM_HUB RAD IUS2,input); 



l 

sprintHinput,"%5.4r,tip_circl i I); 

SetDlgItemText(hDlg,IDM_TIPCIRC2,input); 

1 



sprintf(input,*%5.4f ,tip_radius[ 1J); 

SetDlgItemTcxt(hDlg,IDM_TlPRADIUS2,input); 



1 

return TRUE; 

> 

» 



case WM COMMAND: { 



1 

return (BOOL)HANDLE WM COMMAND(hDlg, wParam, IParam, 

WMSteep2DlgCommand Handler); 

} 

1 

• 


) 

return FALSE; 

} 



4 

C.3.6 The Unload Coefficients dialog box functions. 

1 ' 



The four functions that initialize and retrieve data from the Unload Coefficients 



1 

dialog boxes are shown below. 

void WMCoefficient 1 DlgCotnmand Handler(HWND hDlg, int id, HWND hwndCtl, UINT codcNotify) 

{ 

char input[20] ” //character string for i/o 

switch(id) 

{ 

case EDM OK1 COEFFICIENT: { 

• 


4 

i 


1 

GetDlgltemTextfhDlg, IDM_HUBCX)EFFICIENT 1, input, 20); 
hub_coefficient(0] • atoffinput); 

GetDlgltemTextfhDlg, IDM_TIPCX)EFF1CIENT 1, input, 20); 

• 


i 
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/ 


tip_coeffidentiul - atoflinput); 


} 


} 


case EDM CANCEL1 COEFFICIENT: { 
EadDialogthDig, 0); 


break; 

> 


} 


BOOL CALLBACK export Coefficient lDlgProc(HWND hDlg, UINT m e ssage . WPARAM wParam, 

LPARAM IParam) 


{ 

char input[20] = 


//character string for i/o 


swi tch{ message) 

{ 

case WM INITDIALOG : { 



ft 


ft 


ft 


sprintf(input, , *%4.3P,GNHC[01); 

SetDlgItemText(hDlg,IDM_HUBUNLOADPERCENT 1 .input); 
sprmtf(input, ,, %4.3r,GNTC(0]); 

SetDlgItemText(hDlg,n)M_TIPUNLO ADPERCENT1 .input); 
return TRUE ; 

> 


case WM COMMAND; { 

return (BOOL)HANDLEWMCOMMAND(hDlg, wParam, IParam, 

WMCoefBcient 1 DlgConunand Handler); 

} 

} 

return FALSE; 

} 

void WMCoefficicnt2DlgCommand Handier(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify) 

{ 

char input(20] ■ //character string for i/o 

switched) 

{ 

case IDM_OK2COEFFICIENT: { 

GetDIgItemText(hDlg, IDM HUBCOEFFICIENTl, input, 20); 
hub_coefficient[0] * atof(input); 

GetDlgltemTextfhDIg, IDM TIPCOEFFICIENT1, input, 20); 
tip_coefficieut[0] - atoll input); 
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GetDlgltcmTexKhDIg. EDM_HUBCOEFFICIENT2, input, 20); 
bub_coeffickat(l] * atof(input); 


» 


GetDlgItemText(hDlg. IDMTIPCOEFFICIENT2, input, 20); 
tip_codBcient{l] - atofl[ input); 

} 

case IDM_CANCEL2CX)EFFICIENT: { 

EndDiak>g(hDlg, 0); 


BOOL CALLBACK export Coefficient2DlgProc(HWND hDlg, UINT message, WPARAM wParam, 

LPARAM IPanun) 


{ 

char input(20] * 


//character string for i/o 


switch(message) 

{ 

case WM INITDIALOG: { 
sprintf(input,"%4.3r,GNHCl0]); 

SetDlgItemText(hDlg,IDM_HUBUNLOADPERCENT 1 .input); 
sprintf(input, ,, %4.3r,GNTC[0]); 

SetDl gItemText(hDIg, IDMTEPUNLOADPERCENT1 .input); 
sprintf(input,"%4.3r,GNHC( 1J); 

SetDlgItemText(hDlg,IDM_HUBUNLOADPERCENT2,input); 

sprintf(input,”%4.3r,GNTC[l)); 
SetDlgItemText(hDlg,IDMjnFUNLOADPERCENT2, input); 

return TRUE; 

} 


case WM COMMAND: { 

return (BOOL)HANDLE_WM_COMMAND(hDlg, wParam, IParam, 
WMCoeffirient2DlgCommand Handler); 

> 

> 

return FALSE; 


CJ.7 The Default Settings dialog box functions. 


» 

u 

I 


» 


» 


I • 
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» 


I 


» 
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The four functions that initialize and retrieve data from the Default Settings dialog 


boxes are shown below. 


void wvn-yfMihigj-ttingitnigrnmmand HandlerfHWND hDlg, Lnt id, HWND hwndCtl, 
1 TcodeNodfy) 


char inputs //character string for i/o 

switch(id) 

{ 

case tDM OKDEFAULT 1 SETTINGS : { 


HWND hCtrl; 


GetDlgltemText/hDlg, IDMCLMAX, input, 20); 
CLMAX - atoff input); 

GetDlgltemTextfhDlg, IDM TCHDMAX, input, 20); 
TCHDMAX - atoffinput); 

GctDIgltemTextfhDlg, IDM TTTP, input, 20); 

TTEP - atofljinput); 


GetDlgItemText(hDlg, IDM NPANEL, input 
NPANEL - atoi(input); 


GetDlgltemTextfhDlg, IDMCDCON, input, 20); 

CDCON - atoffinput); 

GetDlgltemTextfhDlg, IDM RHVOR, input, 20); 

RHVOR - atof(input); 

GetDlgltemTextfhDlg, IDM HUBCHORD1, input, 20); 

HUBCHD[0] = atoffinput); 

GetDIgltemText/taDlg, IDMPL1, input, 20); 

FL1 ■ atoffinput); 

hCtrl - GetDlgltemfhDlg, IDMWAKEALIGNMENTFLAG), 
wakealignmcnt_flag = (int)SendMessage(hCtrl, BMGETCHECK, 0,0L); 

hCtrl - GetDlgltemfhDIg, IDM CIRCOPTFLAG); 

ciiculation_optima9dion_flag = (int)SendMessage(hCtrl, BMGETCHECK, 0,0L); 

hCtrl - GetDlgltemfhDlg, IDM CHORDCOPTFLAG); 
chordoptimizatkmflag - (int)SendMessage(hCtrl, BMGETCHECK, 0,0L); 

hCtrl - GetDIgltera/hDIg, IDM EMPIRICALVCDFLAG); 
empirical_vcd_flag - (int)SendMessage(hCtrl, BMGETCHECK, 0,0L); 



» 


» 




» 


» 


» 


» • 
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» 


i 
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caw IDM CANCELDEFAULT1 SETTINGS: { 
EadDiah>g(hDig. 0); 


BOOL CALLBACK export Default 1 Sel1ingsDlgProc(HWND hDlg. UINT message, WPARAM wParam. 

LPARAM IPanun) 

< 

char input(20] - //character string for i/o 

swjtchQnessagc) 

{ 

caw WM INITDIALQG: { 

sprintf(input,"%5.4r,CLMAX); 

SetDlgItemText(hDlg,IDM_CLMAX,input); 

sprintf( input, *%5.4r,TCHDMAX); 

SctDlgItemText(hDlg.IDMTCHDMAX, input); 

sprintf(input,' , %5.4r,TTIP); 

SetDlgItemText(hDlg,IDM_TTIP > input); 

sprintf(input,"%d' , ,NPANEL); 

SetDlgItemTcxt(hDlg,IDMNPANEL,input); 

sprintf(input,"%5.4r,CDCON); 

SetDlgItemText(hDlg,IDM_CDCON,input); 



» 


sprintf(input,*%5.4f',RHVOR); 

SetDlgItemText(hDIg,IDM_RHVOR,input); 

sprintf(input, , *%5.4r,HUBCHD{0]); 

SetDigItemText(hDlg,IDM_HUBCHORD 1 .input); 

sprind(iiiput,"%5.4f\PLl); 

SetDlgItemText(hDlg,IDM_PLl,input); 

CbeckDIgButton (hDlg. IDM_WAKEALIGNMENTFLAG. (UINT)wakc_aJi gnmeniflag); 
CbeckDIgButton (hDlg. IDM_CIRCOPTFLAG, (UINT)circulation_optiinization_flag) ; 
CheckDlgButton (hDlg, IDM_CHORDCOPTFLAG, (UINT)chord_opd mizationflag); 
CbeckDIgButton (hDlg. IDM_EMPIRICALVCDFLAG, (UINT)enipirica]_vcd_flag); 

return TRUE; 

} 


caw WM_COMMAND: { 


return (BOOL)HANDLE_WM_COMMAND(hDlg, wParam, IPanun, 

WMDefeult 1 SettingsDlgCommand_Handler); 


> 
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} 


> 

return FALSE; 


void WMDefiMilt2SettingsDlgCommand Handkr(HWND hDIg, int id, HWND hwndCtl, UINT 
codeNottfy) 

{ 

char input(20] “ //character string for i/o 

switch(id) 

{ _ 

case IDM_OKDEFAULT2SFmNGS: { 

HWND hCtri; 

GetDigItemText(hDlg, IDM CLMAX, input, 20); 

CLMAX • atoffmput); 

GctDlgItemText(hDlg, IDMTCHDMAX, input, 20); 

TCHDMAX “ atof(input); 

GetDlgltemTextfhDlg, IDM TTTP, input, 20); 

TTIP - atof(input); 

GctDlgltemT ext (hDIg, IDMNPANEL, input, 20); 

NPANEL ■ atoi(input); 

GetDlgltemText(hDlg, IDMCDCON, input, 20); 

CDCON = atof^input); 

GetDlgItemText(hDig, IDM RHVOR, input, 20); 

RHVOR = aloft input), 

GetDlgltemTextfhDlg, IDMHUBCHORD1, input, 20); 

HUBCHD[0] - atoftinput); 

GetDlgltemTextfhDlg, IDM HUBCHORD 2, input, 20); 

HUBCHD[l]«atof(input); 

GetDlgltemTextfhDlg, IDMPL1, input, 20); 

PL1 - aloft input); 

GetDlgItemText(hDlg, IDM PL2, input, 20); 

PL2 * aloft input); 

hCtri - GetDlgltem(hDlg, IDMWAJCEALIGNMENTFLAG), 
wakealignroentflag - (int)SendMessage(hCtrl, BMGETCHECK, 0,0L); 

hCtri - GetDigItem(hDlg, IDM CIRCOPTFLAG); 

circulationj>ptimization_flag * (int)SendMessage(hCtrl, BM.GETCHECK, 0,0L); 

hCtri - GetDlgItem(hDlg, IDMCHORDCOPTFLAG); 
chord_optimization_flag * (int)SendMessage(hCul, BM_GETCHECK, 0,0L); 

hCtri - GetDigItem(hDlg, IDM EMPIRICALVCDFLAG), 



i 






» • 



» 


» 


» 
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empiricalvcdflag » (int)SendMessage(bCtri, BM_GETCHECK, 0,0L); 

hCtri ” GetDlgItem(hDlg. IDM_C0NRA7TLAG); 
coatraction_ntfio_flag ” {inOSendMessagetbCtri, BM GETCHECK, 0, OL); 


If the contractionjratioflag is not set, then the contraction ratio is set to the value 

entered by the user. Otherwise, the default value is used. 

if( Icootnctioaratioflag) { 

GetDlgItemText(hDlg, IDM CONRAT, input, 20); 

CONRAT ■ ato^input); 

} 

> 

case IDM_CANCELDEFAULT2SETTINGS: { 

EndDialog(hDlg, 0); 


BOOL CALLBACK export De&uJt2SettingsDlgProc(HWND hDJg, UINT message, WPARAM wParam, 

LPARAM IParam) 

{ 

char input[20] = //character string for i/o 

switch/message) 

{ 

case WM INTTDIALOG: { 

sprintf(iiiput,"%5.4r,CLMAX); 

SetDlgItemTcxt(hDlg,IDM_CLMAX, input); 

sprintf( input, *V*5 4r,TCHDMAX); 

SetDlgItemText(hDlg,IDM_TCHDMAX, input); 

spcintfl:input,*%5.4r,TTIP); 

SctDIgItemTcxt(hDlg,IDM_TTIP,input); 

sprimf(input,’%d*,NPANEL); 

SetDlgItcmTcxt(hDlg,IDM_NPANEL,input); 

sprintf/inpuL^^r.CDCON); 

SctDlgItemTcxt(hDlg,IDMCDCON,input); 


sprintfTinput,"%5.4r,RHVOR); 

SctDlgItcmText(hDlg,IDM_RHVOR,input); 




sprintf(input,*%5.4r > HUBCHD[0]); 

SetDlgItemText(hDlg.IDM_HUBCHORD 1 .input); 

sprintf( input, *%5.4P,HUBCHD[1]); 

SetDlgItcmTcxt(hDlg.IDM_HUBCHORD2, input); 

sprintf|;mput,*%5.4r > PLl); 

SctDlgItemText(hDlg.iDM_PL 1 .input); 

sprintf(input, , ‘%5.4f\PL2); 

SctDlgItcmText(hDlg,IDM_PL2,input); 

sprintf(input ’%5.4f\CONRAT); 

SetDlgItcmTcxt(hDIg,IDM CONRAT.input); 

ChcckDlgButton (hDlg, IDM_WAKEALIGNMENTFLAG, (UINT)wakc_aJignmen(_flag); 
CbeckDlgButton (hDlg, IDM CIRCOPTFLAG, (UINT)rirculation_opUrnization_flag), 
ChcckDlgButton (hDlg, IDM CHORDCOPTFLAG, (UINT)chord_opdinization flag); 
ChcckDlgButton (hDlg, IDM_EMPIRICALVCDFLAG, (UINT)empirical_vcd_flag); 
ChcckDlgButton (hDlg, IDM CONRATFLAG, (UINT)contraction_ratio_flag); 

return TRUE; 

> 

case WM COMMAND: { 

return (BOOL)HANDLE WM COMMAND(hDlg, wParam, lParam, 

WMDefault2ScttingsDlgCommand_Handler); 

> 

} 

return FALSE; 


C.3.8 The Duct Settings dialog box functions. 

The Duct Settings dialog box is handled by the 
WMDuctSettingsDIgCommand Handler and the DuctSettingsDIgProc functions shown 
below. No new concepts are used in these functions. 

void WMDuctSettingsDlgConunand HandterfHWND hDlg, int id, HWND hwndCtl, UINT codeNotify) 

f 

char input[20] = //character string for i/o 

switch(id) 

{ 

case IDM_OKDUCTSETTINGS: { 

HWND hCtri; 

hCtri - GetDIgltemfhDlg, IDM_DUCTMEANLINEFLAG); 
ductmcanlineflag - (int)SendMessage(hCtri, BMGETCHECK, 0,0L); 





I 


I 


I 
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hCtri - GetDlgItem(hDlg. IDM_DUCTRINGVORTFORCESFLAG); 
duct_ring_vortexJbrcesJlag »(int)ScndMcssage(hCtrl, BMGETCHECX, 0,OL), 



hCtri - GetDlgItem(hDlg. IDM.DUCTFORCESFLAG); 
ductfbrcesflag ” (int)SendMessage(hCtri, BM_GETCHECK, 0, OL); 

hCtri - GetDlgltenKhDIg. n>M_ESTIMATEDUCTClRCULAT10N); 
esrijnate_duct_circu]atioQ_flag - (int)SendMessagc(hCtri, BMGETCHECK, 0. OL); 

GetDlgltemTexKhDlg, IDMGAPFAC, input, 20); 

GAPFAC - atoritaput); 

GetDlgltemTexKhDlg, IDM PROPDUCTTHRUSTRATIO, input, 20); 
propellerductthrustratio * atoRinput); 

GetDlgltemTexKhDlg, tt>M_DUCTCIRCULATION, input, 20); 
esti mitcdductrirculation - atoRinput); 


> 


> 

case IDM_CANCELDUCTSETTING£ ; { 

EndDialog(hDlg, 0); 

break; 


BOOL CALLBACK export DuctSettingsDlgProc(HWND hDIg, UINT message, WPARAM wParam, 

LPARAM lParam) 

{ 

char input[20] * ”; //character string for i/o 

switch/message) 

{ 

case WM INITDIALOG: { 

sprintRinput,"%*.3f , ,GAPFAC); 

SetDlgItemText(hDlg,IDM_GAPFAC,input); 

CheckDlgButton(hDIg,IDM_DUCTMEANLlNEFLAG,(UINT)duct_mean_line_flag); 

ChedcDlgButtoo(hDlg,IDM_DUCTRINGVORTFORCESFLAG > 

(GWT)duct_ring_ v ortex_forces_{lag); 

CheckDlgButton (hDlg,IDM_DUCTFORCESFLAG,(U[NT)duct_forces_nag); 

CheckDlgButton(hDlg,IDM_ESTIMATEDUCTCIRCULAT10N, 

(UINT)estimate_duct_circulation_flag); 

sprintKinput,*%3.2f > ,propelter_duct thrust ratio); 
SetDlgItemText(hDlg,roM_PROPDUCTrHRUSTRATIO,input); 

sprintRinput, *%7.6f ,estimated_duct_circulation). 
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SetIXgItemText(hDlg.IDM_DUCTCIRCULATION,inpuO; 
return TRUE; 


WM COMMAND: { 

return (BOOL)HANDl^JVMJXJMMANDfhl^ wPanun, IPararn, 
WMDuctSetUngsDlgCommandHandJer); 


return FALSE; 

> 

C.3.9 The PBD Settings dialog box functions. 

The next two functions support the PBD Settings dialog box. 

void WMPBDSettingsDIgCommandHandlerfHWND hDIg, int id, HWND hwndCtl, UINT codcNotify) 
{ 

char input[81] - //character string for i/o 

switch(id) 

{ 

case IDM OKFBDSETTINGS: { 


HWND hCtri; 

GetDIgltemTextfhDlg, IDM PBDRUNTTTLE, input, 81); 
sprintffpbd_run_title, input); 

GetDlgltemTcxtfliDlg. 1DMPBDOUTPUTROOT, input, 9); 
sprintf(pbd_outputroot, input); 


» • 


The PBD Settings makes use of auto-radio buttons in receiving input regarding the 
blade grid spacing, the component for which to write files, the run mode, and the plot 
mode. Unlike previous cases, the effect of the input is not to cause a flag to be set or 
cleared. In these cases the choice of a particular selection causes a variable to have a 
specific value. This requires the use of the if statement to determine the state of the 
buttons and assign the values of the variables. 

hCtri - GetDlgltemfhDIg, IDM UNIFORM); 

if (ScadMessagefhCtrl, BM_GETCHECK, 0,0L)) ISPN = 0; 

hCtri - GetDlgltcmfhDlg, IDM COSINE); 

if (SendMcssage(hCtrl, BM GETCHECK, 0,0L)) ISPN -1, 

hCtri - GetDlgltemfhDlg, IDM HALFCOSINE); 
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if (SeadMessagefhCtrl, BM_GETCHECK, 0,0L)) ISPN-2; 



I 




hCtrl - GctDlgItem(hDlg. JDM_NACA08CIRO; 

MLTYPE - (int)SendMcssagc(hCtii > BMGETCHECK, 0, OL); 

hCtrl - GetDIgltcmfhDIg. IDM.PBDCOMPl); 

if (ScadMcmgr(hCtrl, BMGETCHECK, 0, OL)) pbd_componcnt - 0; 

hCtrl - Gct£Hgltem(hD)g. IDM_PBDCOMP2); 

if (SendM«*a®e(bCtrt, BM GETCHECK, 0, OL)) pbd_compoilent * 1; 

hCtrl - GctDlgItcm(hDlg. IDM IMODE 1); 
if (SendMessagefhCtri, BMGETCHECK, 0, OL)) IMODE - 1; 

hCtrl - GetDlgltenifhDlg. IDM IMODE2); 
if (SendMessage(hCtr1, BM GETCHECK, 0. OL)) IMODE - 2; 

hCtrl - GctDlgltcmfliDlg, IDM IMODE3); 
if (SendMessage(hCtrl, BM GETCHECK, 0, OL)) IMODE = 3; 

hCtrl- GetDlgltentfhDlg, IDM NPLOT1); 
if (ScndMessage(hCtri, BMGETCHECK, 0, OL)) NPLOT - 1; 

hCtrl - GetDIgltcmtfiDIg, IDM_NPLOT2); 
if (ScndMcssagc(hCtrl, BM GETCHECK, 0, OL)) NPLOT * 2; 

hCtrl = GetDlgItem(hDlg, IDM NPLOT3); 
if (ScndMcssagc(hCtrl, BM GETCHECK, 0, OL)) NPLOT - 3; 

hCtrl = GctDlgltemfhDlg, IDMNPLOT4); 
if (SendMcssage(hCtrl, BM GETCHECK, 0, OL)) NPLOT - 4; 

GctDlgltcmText(hDlg, IDMNKEY, input, 20); 

NKEY * atoi(input); 


GctDIgltemTcxtfhDlg, IDM MKEY, input, 20); 
MKEY = atoi(input); 

GetDlgItemTcxt(hDlg, IDM NITER, input, 20); 
NITER » atoi(input); 


GetDlgltemTextfhDlg, IDM RADWGT, input, 20); 
RADWGT - atoi(input); 

GetDlgItemTcxt(hDlg, IDMNUFIX, input, 20); 
NUFIX “ atoi(input); 


GctDIgItcmTcxt(hDIg, IDM CDRAG, input, 20); 
CDRAG = atofl[input); 

GctDlgltcmTcxt(hDlg, IDM XULT, input, 20); 
XULT » atofftnput); 

GetDlgItcmTcxt(hDlg, IDM XFTNAL, input, 20); 
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XF1NAL - atotf{ input); 

GetDlgItetnText(hDlg. EDM DTPROP, input, 20); 
DTPROP - atoffinput); 

> 


} 


caw EDM CANCELPBDSETTINGS: { 
EndDialog(hDlg. 0); 


break; 

} 


> 


BOOL CALLBACK export PBDSettingsDlgProc(HWND hDlg, UINT message, WPARAM wParam, 
LPARAM IPanun) 


char input(82] * //character string for i/o 

switch(niessage) 

{ 

case WM_INTTD1AL0G; { 


The way in which auto-radio buttons are use in these two functions complicates 
the initialization of the dialog box as well. Switches are used to cause the appropriate 
buttons to be checked. 


switch (ISPN) 

{ 

case0:{ 

CheckRadioButton (hDlg,IDM_UNIFORM.IDM_HALFCOSINE,IDM_UNIFORM); 
break;} 

case W 

ChecUtadioButton (hDlg,IDM_UNIFORM,IDM_HALFCOSINE,IDM_COSINE); 
break;) 

case2:{ 

CheckRadioButton 

(hDlg,EDM UNIFORM,IDMJIALFCOSINE.IDM HALFCOSINE); 
break;} 

> 

switch (IMODE) 

{ 

case 1:{ 

CheckRadioButton (hDlg, IDMJMODEl, IDMJMODE3, IDMJMODEl); 

break;} 

case2:{ 
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CheckRadioButton (hDIg, IDMJMODEl, IDM_IMODE3, IDMIMODE2); 

break;} 

case3:{ 

CheckRadioButton (hDIg, IDM_IMODEl. IDM IMODE3, IDM IMODE3); 
break;} 

> 

switch (pbd component) 

{ 

caseO:{ 

CheckRadioButton (hDIg. n3M_PBDCOMPl, IDM PBDCOMP2, IDM_PBDCOMPl). 
break;} 
case 1:{ 

CheckRadioButton (hDIg, IDM_PBDCOMPl, IDM_PBDCOMP2, IDM_PBDCOMP2); 
break;} 

} 

if(MLTYPE) CbeckDlgButton (hDIg, tt>M_BROCKETT08, (UINT)1); 
else CheckDIgButton (hDIg, IDM.NACA08CIRC, (UTNT) I); 


switch (NPLOT) 

( 

case 1:{ 

CheckRadioButton (hDIg, IDM NPLOT1, IDM JMPLOT4, IDM_NPLOTl) 

break; } 

case2:{ 

CheckRadioButton (hDIg, IDM_NPLOTl, EDM_NPLOT4, IDMNPLOT2) 

break;} 

case3:{ 

CheckRadioButton (hDIg, IDM_NPLOTl, tt>M_NPLOT4, IDM_NPLOT3) 
break;} 
case 4: { 

CheckRadioButton (hDIg, IDM_NPLOTl, IDM_NPLOT4, IDM NPLOT4) 
break;} 

} 

if(strien(pbd_run_title)>2) ^>rintf(input,"%s",pbd_nm_titJe); 
else sprintf(input,"%s",RUN_ID); 

SetDlgIteroText(hDlg,IDM_PBDRUNTITLE,input); 

sprintf(input,“*/«6",pbd output root); 
SetDlgItemText(hDlg,IDM_PBDOUTPUTRC)OT,input); 


sprintf(input,"%d",NKEY); 
SetDlgItemText(hDlg,IDM_NKEY, input); 


*printf(input,*%d",MKEY); 

SetDlgl temText (hDIg, IDMMKEY,input); 


sprintf(input, "%d",NlTER); 

SetDlgl temText(hDlg,IDM_NTTER,input); 


sprintKinput.-Sd'JlADWGT); 
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SetDlgItemText(hDig,IDM_RADWGT, input); 


spring input, *%d",NUFLX); 

SetDlgl tonText(hDlg. IDM_NUFTX, input); 

sprintf(input,’ , %5.4r\CDRAG); 

SetDlgltemText(hD!g.IDM_CDRAG,input); 

sprintf(inpiit,*%5.4r,XULT); 

SetDlgl temTejct(hDlg,IDMXULT,input); 

sprintl{input, , ‘%5.4f , ,XFINAL); 

SetDlgItcmText(hDlg,IDM_XFTNAL, input); 

sprintf(input,' , %4.3rjJrPROP); 

SetDIgItemText(hDlg,IDM_DTPROP,input); 

return TRUE; 

> 

case WM COMMAND; { 

return (BOOL)HANDLE_WM_COMMAND(hDlg, wParam, LParam, 
WMPBDSettingsDlgCotnmand_Handier); 

} 

} 

return FALSE; 

} 


C.3.10 The Project Settings dialog box functions. 

The next four functions support the single and multiple component Project 

Settings dialog boxes. No new concepts are employed in these functions. 

void WMProjectlDlgCommand_Handler(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify) 

{ 

char input[21] = //character string for i/o 

switch(id) 

< 

case IDM OKPROJECT1; { 

HWND hCtrl; 

GetDlgltemTextfhDlg, IDMRUNJD, input, 21); 
sprintffRUNID, input); 

GetDlgItemText(hDlg, IDM INPUTFILE, input, 20); 
sprintfUNPUTFILE, input); 

GetDlgltemTexKhDlg, IDMRPMl, input, 20); 

RPMfOJ = atof(input); 







hCtrl - GetDigItem(hDlg. IDM_EFFECTIVEWAKEFLAG); 
effiectrve_wakc_flag “ (int)SendMessage(hCtrl, BMGETCHECK, 0,0L); 

GetDIgItemText(hDlg, IDM THRUSTESTIMATE, input, 20); 
thnist_estiinate * ataftinput); 

hCtrl - GetDlgItem(hDlg, IDM_TUNNEL0PERAT10NFLAG); 
tunndopcrationflag « (int)SendMessage(hCtri, BMGETCHECK, 0, OL); 

GetDlgltemTexKhDlg, IDM PROPRINGTHRUSTRATIO, input, 20); 
propeller_ring_thrust_ratio - atof(input); 

> 

case IDM_CANCELPROJECT1 : { 

EndDialog(bDlg, 0); 


BOOL CALLBACK export ProjectlDlgProc(HWND hDlg, UTNT message, WPARAM wParam, 
LPARAM IParam) 

{ 

char input[21| - //character string for i/o 

switch(message) 

{ 

case WM INITDIALOG: { 

sprintf(input,^”,PROJECTFILE); 

SetDlgItemText(hDlg,IDMPROJECTFILE,input); 

sprintf(inpu t, "%s",RUN_ID); 

SctDlgItcmText(hDlg,IDM_RUN_ID,input); 

sprintf(input,"%s’,INPU , IhlLE); 

SetDlgItemText(hDlg,IDM_INPUTFILE,input); 

sprintf(input 1 ,, %6.2r r RPM(0]); 

SetDIgItemText(hDIg,IDM_RPMl .input); 

sprintftinput,*%6.2r,thrust_estimate); 

SetDlgItemText(hDlg,IDM_THRUSTESTIMATE, input); 

CheckDlgButloo{hDlg, IDMfcPPtC 11 VEW AKEFLAG.fUINTjeffecti vewakeflag); 
CheckDlgButton(hDlg. IDM_TUNNELOPERATIONFLAG,(UINT)tunnel_operation_flag); 

sprintfimput, . 2f\propeller_ring^thrust ratio); 
SetD!gItemText(hDlg,IDM_PROPRINGTmtUSTRATIO,input); 


return TRUE; 








WM COMMAND: { 


return (BOOL)HANDLE_WM COMMAND(hDlf. wPanun, IParam, 
WMPrcjectlDlgCominand Handler); 

> 

> 

return FALSE; 


void WMPro}ect2DlgCo«nmand Handkr(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify) 

{ 

char input(21) * //character string for i/o 

switch(id) 

{ 

case n>M_OKPROJECT2: { 

HWND hCtrl; 

GetDlgltemText(hDlg, IDM RUN ID, input, 21); 
sprintfl^UJNID, input); 

GetDlgItemText(hDig, IDM INPUTFILE, input, 20); 
sprintf(INPUTFILE, input); 

GctDlgItcmText(hDlg, IDM RPM1, input, 20); 

RPM[0] = atof(input); 

GetDlgltemTextfhDlg, IDM RPM2, input, 20); 

RPM| 1] = atof(input); 

hCtri - GetDlgItero(hDlg, IDMEFFECTIVEWAKEFLAG); 
effectivewakefiag - (int)SendMessage(hCtrl, BM_GETCHECK, 0, OL); 

GetDlgltemTextfhDlg, IDM THRUSTESTIMATE, input, 20); 
thrustjestimate ■ atof(input); 

hCtrl - GetDlgItero(hDlg, roM_TUNNELOPERAT10NFLAG); 
tunneloperationflag • (int)SendMessage(hCtri, BMGET CHE CK, 0, OL); 

GetDlgltemTextOiDlg, IDM TORQUERATIO, input, 20); 
torqueralio « atof(input); 

hCtrl - GetDlgltemfhDlg, IDM CIRCOPTWAKEALGNFLAG); 
drc_opt_wake_alignment_flag - (int)SendMessage(hCtri, BMGETCHECK, 0, OL); 

hCtrl - GetDlgltenKhDlg, EDM USEMANUALDAMPING); 

estimate_damptng_flag “ (int)SeadMessage(hCtri, BM.GETCHECK, 0, OL); 

GetDlgltemTextfhDlg, IDMMANUALDAMPING, input, 20); 
damping ** aloi^input); 





am IDM_CANCELPR0JECT2: { 
EadDtalogfhDig. 0); 


break; 

} 


} 


BOOL CALLBACK _expo*t Project2DlgProc(HWND hDlg. UINT message. WPARAM wParam, 
LPARAM IParam) 

{ 


char input(21] 1 


//character string for i/o 


switdKmessage) 

{ 

case WMJNITDIALOG: { 


sprintfl input, *%6",PROJECTFILE); 

SctDlgItcmText(hDlg,IDM_PROJECTFILE, input); 

sprintf^inpu^-^s'.RUNID); 
SetDlgIt«nTcxt(hDlg,IDM_RUNID,input); 


sprinttfinput, Trf*,INPUTFILE); 
SctDlgItcmText(hDIg,IDM_INPUTFlLE,input); 

spriDtf( input, "%6.2rj > J > MlO]); 
SetDlgItemText(hDlg,IDM_RPM 1 .input); 


sprintf(input,*%6.2r JIPM[ 1 ]); 
SetDlgItemText(hDIg,IDM_RPM2,i input); 


sprintf(input,*%6.2r,thnjst_estimate); 

SetDlgItemTcxt(hDlg,IDM_THRUSTESTIMATE, input); 

ChcckDlgButtoo(hDlg,IDM_EFFECnVEWAKEFLAG,(UINT)effcctivc_wakc_flag); 
CheckDlgButton(hDlg,IDM TUNNELOPERATIONFLAG,(UINT)tunncl operation flag); 
Chedri>lgButtoo(h01g, IDMQRCOPTWAKEALGNFLAG, 
(UINT)dic_opt_wake_alignmeat_flag); 

CheckDIgBnttoo(hDIg,IDM_USEMANUALDAMPING,(UINT)estiinate_daniping_flag); 


sprintfi[input, a %4.3f,damping); 
SetDlgItemText(hD1g,IDM_MANUALDAMPING,input); 

sprintftinpat,*%3.2f,torqiie_ratio); 

SetDlgIteniText(hDlg,IDMT0RQUERAT10,input); 

return TRUE; 

} 

case WM_COMMAND: { 


30S 








return (BOOL)HANDLE_WM_COMMAND(hDl& wParam, IPanun, 
WMPrqject2DigCommand Handler); 

> 

> 

return FALSE; 

} 


C3.ll The ABS Rules Strength Settings dialog box functions. 

The WMABSDigCommand_HandJer and ABSDIgProc functions shown below 
initialize and retrieve data from the ABS Rules Strength Settings dialog box. 


void WMABSDlgCommand Handler(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify) 

{ 

char input[20] - //character string for i/o 

switch(id) 

{ 

case IDMOKABSRULES: { 

HWND hCtrl; 

hCtrl * GetDlgItem(hDlg, EDM_FTXEDPITCH); 

propellertypeflag - (int)SendMessage(hCtii, BMGETCHECK, 0,0L); 

hCtrl - GetDlgItem(hDlg, CDM MNBRZ); 
if (SendMessagefhCtrl, BMGETCHECK 0,0L» 
propeUer_material = manga nesc_bronzc; 

hCtrl ” GetDIgltemChDIg, IDMNIMNBRZ); 
if (SendMessagefhCtrl, BMGETCHECK, 0,0L» 

propdlermalerial = nickdmanganescbronze; 

hCtrl - GetDIgltemfhDlg, IDM N1ALBRZ); 
if (SendMessage(bCtrl, BMGETCHECK, 0,0L)) 

propellermaterial - nickdal uminumbronzc; 

-i- 

hCtrl = GetDlgltemfhDIg, IDM MNNIALBRZ); 
if (SendMcssage(bCtrl, BMGETCHECK, 0,0L» 

propdlerjnaterial “ manganese_nidtel_aluminum_bronze; 

hCtrl - GetDlgltemfhDIg, IDM CASTIRON); 
if (SeadMessage(hCtrl, BMGETCHECK, 0,0L)) 
propcUer_materiai - castiron; 

hCtrl - GetDIgItem(hDlg, IDM USERDEFINEDMATERIAL); 
if (SendMessage(hCtri, BM_GETCHECK 0,0L)) 
propeller ..material - user_defined_material; 

GetDlgItemText(hDlg, IDMHUBRAKE, input, 20); 
rake{0] - atofluipui); 






GetDigJtemTextfhDlg. IDM_TIPRAKE, input, 20); 
rake(ll ■ ato^input); 


GetDlgItemText(hDlg, IDM USERDEFINEDUTS, input, 20); 
material_constint[user_dcfinedjnatcrial][0] - atofl[ input), 

GetDlgItemText(hDlg. IDM USERDEFINEDSW, input, 20); 
mattsial_coaatant(userjlefiaed.material][l] - ato^input); 


> 


> 

case IDM CANCELABSRULES: { 

EndDialog(hDlg. 0); 

break. 


BOOL CALLBACK export ABSDlgProc(HWND hDlg, UINT message, 
WPARAM wParam, LPARAM IParam) 

{ 


char input[20] > 


//character string for i/o 


switch(message) 

{ 

case WMJNJTDIALOG: { 

sprintf(input, ,, %4.3r,rake[0]); 

SetDlgltemText (hDlg, IDMHUBRAKE,input); 

sprintf(input, "%4.3r,rake( 1 ]); 

SetDlgltemText (hDlg,IDM_TIPRAKE,input); 

sprintf(input,“%4. ir,material_constant[propeller_material][0]); 
SetDlgItcmText(hDlg,IDM_USERDEFINEDUTS,input); 

sprintft input, "%4.ir,material_constant[propdler_material][ 1]); 
SetDlgItemText(hDlg,IDM_USERDEFINEDSW,input); 

switch (propeller material) 

{ 

case mangancsebronzc: { 

CheckRadioButton(hDlg,IDM MNBRZ.IDM USERDEFINEDMATER1AL, 
IDMMNBRZ); 

break;} 

case nickd_manganese_bronze: { 

ChcckRadicButton(hDlg,IDM MNBRZ.IDM USERDEFTNEDMATERIAL, 
IDMNIMNBRZ); 

break;} 

case nickel aluminum bronze;{ 

CheckRsdioButtoo(hDlg,IDM MNBRZ.IDM USERDEFINEDMATERIAL. 
IDM_NIALBRZ); 








break;) 

case man g w ne i c nickel aluminum broeze; { 

CheckR*dtoButU»(hDlg.IDM MNBRZ.IDM USERDEFINEDMATERIAL, 

IDM MNN1ALBRZ); 

break;} 

caaecaat iraa:{ 

CheckRadioButtoo(hDlg,IDM MNBRZ.IDM USERDEFIKEDMATERIAL. 

IDM CASTIRON); 

break;} 

case user defined material:! 

ChedcR*dioBudoo(hDlg,IDM_MNBRZ.IDM_USERDEFINEDMATERIAL. 

EDMUSERDEFINEDMATERIAL); 

break;} 

} 

switch (propeller type flag) 

{ 

case 1:{ 

CheckRadioButton (hDlg, IDM FIXEDPITCH, EDM CONTROLLABLEPITCH, 
IDMJTXEDPITCH); 

break;} 
caseO:{ 

C hcckRadio Button (hDlg. IDM FIXEDPITCH, IDM CXJNTROLLABLEPITCH, 
IDM CONTROLLABLEPITCH); 

break;} 

} 

return TRUE; 

} 


case WM_COMMAND: { 


} 


return (BOOL)HANDLE_WM_COMMAND(hDlg, wParara, lParam, 
WMABSDlgCominandHandler); 


} 


return FALSE; 


> 


C.3.12 The PBD Plot Geometry dialog box functions. 

The PBD Plot Geometry dialog box is the only dialog box in PLL that is not called 
by a main menu selection either directly or indirectly. It is called by double clicking the 
right mouse button on a PBD (dot in the Plot Viewer window. 

void WMPBDPRYDlgCommand Handler(HWND hDlg, iat id, HWND hwndCtl, UINT codeNotify) 

{ 

char input(20] -//character string for i/o 








» 
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switch(id) 

{ 

can IDM OKPBDPRY. { 



The pitch, roll, and yaw angles are stored in memory in the units of radians, but *re 
displayed on the screen and input by the user in the units of degrees. The conversion is 
done in the assignment statements in the Command_Handler function and in tin sprintf 
functions in the DlgProc function. 


GetDigItemText(fcDif. IDMPBDPITCH, input, 20); 
pilch - PI*atof(input)/180.0; 

GctDigItcmText(hDlg. IDM FBDROLL, input, 20); 
roU - PI*atof(input)/180.0; 

GctEHgltemTextChDlg. EDM PBDYAW, input, 20); 
yaw • PI*atcrf(inputV 180.0; 

GetDlgltemTcxtOiDlg, IDM PBDSCALE, input, 20); 
scalejhdor - ato^input); 


IDM CANCELPBDPRY; { 


EndDialogChDig, 0); 
break. 


BOCK, CALLBACK export PBDPRYDigProc(HWND hDlg, UINT message, WPARAM wParam. 
LP ARAM lParam) 


char input[20] - 
switch/message) 

{ 

case WM_1NITDIAL0G: { 


//character string for i/o 


sprintf(input,*%4. If .pitch* 180.0/PI); 
SetDigItemText(hDIg.IDM_PBDPITCH,input); 

sprintf/input,"*!. If, roil* 180.0/PI); 
SetDlgIteinText(hDlg.IDM_PBDROLL,input); 

aprintf(input,' > %4. lf.yaw* 180.0/PI); 
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SetDigItemText(ld}lg.IDM_PBDYAW,input); 

sprind( input, "%4. lP,*cak&ctor); 
SetDlgItejnText(hDlg,IDM_PBDSCALE, input); 

return TRUE; 


} 


) 

WM COMMAND: { 

return (BOOL)HANDLE WM COMMAND(hDlg, wParam, IPanun, 
WMPBDPRYDlgCommand Handler); 

> 


return FALSE; 


CJ.13 The Optimization Data dialog box functions. 

The Optimization Data dialog box is handled by the two functions shown below. 

void WMOPTIMIZATIONDlgCoinxnand_Handler(HWND hDlg, int id, HWND hwndCU, UINT 
codeNotify) 

{ 

char input[20] = //character string for i/o 

switch/id) 

{ 

case IDM_OKOPTDATA: { 

HWND hCtrl; 


If there is only one component in the project, the optcomp flag is set to one 
regardless of the user input. Otherwise, the flag is set in the usual manner. 


if(LDEV“ 1 )opt_comp »1; 


etoe{ 

hCtrl - GetDlgItem(hDlg, IDMOPTCOMP1); 
if (SendMessageChCtrl. BMGETCHECK, 0.0L)) 
optcomp ” 1; 

hCtrl - GetDlgltem/hDlg, IDM OPTCOMP2); 
if (ScndMessagc/bCtrl, BMGETCHEQC, 0,0L)) 
opt comp * 2; 


} 
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GetDigItemText(hDlg. IDM OPTREQTHRUST, input, 20); 
thnut.req - atcf( input), 

GctDlgIteinText(hDlg. IDM.OPTTORQCOEFF, input, 20); 
twq_ooeff - atof(iaput); 

EndDiaJogfhDlg, 0); 

break; ) 

> 

> 

BOOL CALLBACK .export (MPTIMIZAT!ONDIgProc(HWND hDlg, UINT message, WPARAM 
wParam, 

LP ARAM IPanun) 

{ 

char input(20] * //character string for i/o 

switch(message) 

{ 

case WMINTTDIALOG: { 
switch (opt.comp) 

{ 

case 1:{ 

CheckRadioButton (hDlg, IDM.OPTCOMPl, IDM OPTCOMP2, IDM OPTCOMP1); 

break;} 

case2:{ 

CheckRadioButton (hDlg, IDM.OPTCOMPl. IDM.OPTCOMP2, IDM OPTCOMP2); 
break; } 

} 

sprintf(input,"%9.2r , ,thnist_req); 

SetDlgItemText(hDlg,IDM.OPTREQTHRUST,input); 

sprintf(input, ,, %5.4r,torq_coeff); 

SetDlgItemText(hDlg, IDM.OPTTORQCOEFF,input); 

return TRUE; 


> 

case WM.COMMAND; { 


} 


return (BOOL)HANDLE WM COMMAND(hDlg, wParam, IParam, 

~ WMOPTIMIZATIONDlgCommand.Handler); 


> 


return FALSE; 


> 
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G3.14 The About dialog box functions. 
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The About dialog box is handled by the last two functions in this section. 

votf WMABOUTDlgOmmand Handler(HWND hDIg, int id, HWND hwndCtl, UINT codeNotify) 

{ 

switck(id) 

{ 

case IDM_OKABOUT: { 

EndDialogfliDIg. 0); 

break; } 

} 

> 

BOOL CALLBACK .export ABOUTDlgProc(HWND hDIg. UINT message, WPARAM wParam, 

PARAM IParam) 

{ 

switch(message) 

{ 

case WM INITDIALOG: { 
return TRUE; > 


case WM COMMAND: { 


return (BOOL)HANDLE WM COMMAND(hDlg, wParam, IParam, 
WMABOUTDIgCommandHandler); 

> 


return FALSE; 




APPENDIX C.4 


The PLL output functions. 







C.4 The PLL output functions. 

The PLL Windows™ application uses twelve different functions to draw graphical ^ 

output to the monitor and/or system printer. Four of the functions are used exclusively for 
PLL output. Six are used exclusively for PBD output and two provide PLL and PBD 
output. In addition to the functions that provide monitor and printer output, two ** 

functions provide output in the form of text files. The output function declarations are 
listed below in the order in which they will be presented. 

i 


//PLL output 

void paintbld(HWND hWnd); 
void paintwake(HWND hWnd); 
void paintplotfHWND hWnd); 
void printplot(HDC hDC); 

//PLL and PBD output 
void paintout(HWND hWnd); 
void printout(HDC hDC); 

//PBD output 

void paintjgraphs(HDC PaintDC, POINT origin, FILE *plot, int color); 

void paint_hub(HDC PaintDC, POINT origin, FILE *plot); 

void paint_gsp(HDC PaintDC, POINT origin, FILE *plot); 

void paint_vcp(HDC PaintDC, POINT origin, FILE *plot); 

void paint_cmv(HDC PaintDC, POINT origin, FILE *p!ot); 

void paint_rdc(HDC PairfDC, FILE *plot); 

//text file output 

void write_output_file(HFILE out); 
void write_pbd_files(void); 


The output functions used in PLL are similar to those used in VLL and VLMLE. 
The explanations provided here wall assume that the output file descriptions included in 
Appendices A and B are understood. 
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C.4.1 The paintbld function. 

The paintbld function is used to draw blade data on the Blade Viewer window. It 

is not used to draw output to the system printer. It draws cartesian plots of non- 

dimensional chord, thickness, drag, and circulation of the blades for component(s) 1 (and 

2) and for the ring in the case of ringed propellers. The handle of the Blade Viewer 

window is passed as the argument of the function. 

void paintbkKHWND hWnd) 

{ 

* declare variables that are defined in the pll.c file and that * 

* will be used in this function * 


The paintbld function plots data contained in the global variables declared below. 

The plot data is not read from a data file. 

extern char BLDIN[max_comp][21], 

ringed_propcller[max_comp); 

extern int LDEV, project flag, MRPINJmax comp], 

MBIN[maxcomp], 

extern float XRPIN[maxrad][maxcomp], 

XCHD[ maxrad] [ maxco mp j, 

XTHK(max_rad][maxcomp], 

XCD[maxrad][maxcomp], 

XG[maxrad][maxcompJ, 

BAR[max_comp], 

B ANGINf maxang] [ maxcomp], 

BCHDIN(max_ang][max_comp], 

BTHKIN(maxang) [max_comp], 

BCDIN[ maxang j [ maxcomp), 

BCIRIN[ maxang] [ maxcomp]; 

* Variable declarations * 

PAINTSTRUCT ps; //paint stnicture 

HDC BladePaintDC; //handle of the device context 

HFONT hFont, //fonts for drawing alphanumerics 
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hVcrtFoot, 

IlSlMlIPlMt 

hOidFoot; 

HPEN hPtotPen(4][2], //pens for drawing plots 

hStandardPen, 
hOldPen; 


LOGFONT IFoot; 


//logical font structure for 
//creating the fonts 


HBRUSH hBrush, 
bOtdBrush; 


//brushes for drawing on the 
//screen 


I 


I 


POINT origin[2]-{<35,5}, 
(345 5», 
originjgraph. 


pointfmaxrad]; 


« 


4 


4 


int delta_y * 100, 
length, 

M,j, >. 


components to 


numbcrof_graphs; 

//be graphed 


float maxchord, minchord, 

max thick, minthick, 
max drag, min drag, 
maxcirc, min circ; 

float width, height, 

delta_chord, 
deltathick, 
deltadrag, 
deltacirc; 


char bufferf 120]; 


4 


//origins of the plots of 
// components 1 and 2 
//temp storage of the origin 
// of the graph being plotted 
//{mint structures used to plot 
// the parameters in the 
// form of polylines 

//vertical graph spacing 
//length of character strings 
//loop counters 

//the number of 


//max and min values for the 
//four parameters 


//display size scaled to 640/480 
//differential between the max 
// and min values for the 
//parameters 


//character string used for 
// text output 


The painting process is started using the BeginPaint function. If a project is 
currently open, the appropriate data is plotted. Otherwise, the bulk of the code is skipped 
and tire painting process is terminated. 

//create the device context 
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BladcPaintDC - BeginPaint(hWnd, Ape); 
// if a project is currently open, draw the Made data 
if(prqject_flag){ 


The size of the display area is calculated so that the output may be made 

independent of the specifications of the monitor. 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 


width “ (float)GctDcviccCaps (BladcPaintDC, HORZRES); 
height - (float)GetDcviceCaps (BladcPaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width ” height*(4.0/3.0); 
else 

height “ width*(3.0/4.0); 


Three fonts, eight pens, and a brush are created for the purpose of drawing the 

output. 

//create fonts for drawing alphanumeric output 

hFont - GetStockFoot(DEVICE_DEFALJLT_FONT); 
GctCbject(hFoot,sizeof(lXXjFONT),&lFont); 
lFont.lIHeight = -8; 

hSmallFont * CreatcFontIndirect(&lFont); 

GetOt^ect(hFoat,size(d(LOGFONT),&lFont); 

lFont.lfEscapement - 900; 
lFonLlfHcight - -10; 

hVertFoot - CreateFontIndirect(&IFont); 

//create peas for drawing plots 

hPiotPenlOJJOJ - CreatePen(PS SOLID, 1, RGB(235,0,0)); 
hPlotPen(l][0] * CreatePen(PS SOLID, 1, RGB<0,255,0)); 
hPiotPen[2][0] - CreatePen(PS SOLID, 1, RGB(0,0,255)); 
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hPtotPen[3][0] - CreatePcn(PS_SOLID, 1, RGB(255,0,255)); 


hPlotPen|0)f 1] 
hPk*Pcn[l][l] 1 
hPlotPen(2)(l] < 
hPlotPenpUll > 


■ CreateFen(PS_DOT, l. RGB(255,0,0)); 

■ CrealePcaCPS DOT, 1, RGB(0,255,0)); 

' CreatePen(PS_DOT, 1, RGB(0,0,255)); 

■ CreatePen(PS_DOT, 1, RGB{255,0,255)); 


hSUndardPen = CrcatePcn(PS_SOLID, 1, RGB(0,0,0)); 


//create and select a hollow brush so that ellipses and rectangles will 
//not overwrite pre-existing graphical output, also save a handle to the 
//original brush 


taBnish = GetStockObject(HOLLOW_BRUSH); 
hOldBrush * SelectObject(BladePaintDC,hBnish); 


The y axes are labeled using the vertical font. The file names used in the project 
are printed at the top of the appropriate graph. 


//select the vertical font and label the y-axes of the plots 


hOldFont = SeIectFont(BladePaintDC,hVertFont); 


//select the standard pen 


bOidPen = SeIectPen(BladePaintDC,hStandardPen); 




//align the text such that it is centered 


SetTextAlign(BladePaintDC,TA_CENTER); 


length = sprintffbuffer, "chord/D"); 


TextOut(BladePaintDC,(intX(origin[0].x-30)*width/640.0), 

(intX(origin{0].y+l *delta_y-40)*height/480.0), 
buffer, length); 


length = sprintffbuffer, "thickness/D"); 


TextOut(BladePaintDC,(intX(origin[0].x-30)*width/640.0), 

(intX(origic'0].y+2*delta_y-40)*height/480.0), 
buffer, length); 


length = sprintffbuffer, "CD"), 


TextOut(BladePaintDC,(intX(origin(0].x-30)*width/640.0), 

(intX(origin[0].y+3*delta_y-40)*hcight/480.0), 
buffer, length); 


length * sprintf(buffer, "Non-dim circ"); 


TextOut(BladePaintDC,(intX(origin[0J.x-30)*width/640.0), 
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(latX(origia|0].]rf4'*ddta_y-40)*height/480.0), 
buffer, length); 


//select the normal cize foot aod draw the fife names for both components 
// at the top of the graphs 

SefectFont(BladePaintDC,hFoat); 
for(M»0;M<LDE V ;M++) { 

length - *printf[buffer, "BLADE #%d: Ss", M+l, BLDIN[M*21]); 

TextOut(BladePaintDC(u>tX(origin(M].x+155)*width/640.0), 
(intX(origin(M].y)*height/480.0) > 
buffer, length); 

length “ sprintf(bufifer, "Non-Dimensional Radii"); 

TextOut(BladcPaintDC,(intX(origin [M]. x+155)*width/640.0), 
(intX(origin(M].y+410)*height/480.0), 
buffer, length), 

> 

//for the ringed propeller case, label the graphs appropriately 
ifi[(ringed_pfopellerfOJ“(charX*9)»|(ringed_propeller{l]“(charX89))) 


length = sprintfibuffer, "RING DATA"); 

TextOut(BladePaintDC,(intX(origin[ 1 J.x+155)*width/640.0), 
(intX(origin(l].y)*height/480.0), 
buffer, length); 

length ■ sprintfibuffer, "Non-Dimensional Angles"); 

TextOut(BladePaiiitDC,(imX(ongin[ll.x+155)*width/640.0), 
(intX(origin[ l].y+410)*height/480.0), 
buffer, length); 


SetTextAlign(BladePaintDC,TA_LEFT); 
//select the small font for labeling the x-axes 

SekctFont(BladePaintDC,hSmallFont); 
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The appropriate number of graphs is drawn based on the number of components 

and if a single component project is a ringed propeller. The vertical lines for the graph are 

then drawn as a series of rectangles. The horizontal lines are drawn by using MoveTo and 

LineTo calls nested in two for loops. The x axes are then labeled. 

//determine the of graphs by considering LDEV and whether a 

// single c omp onent is ringed 

number_of ^graphs - LDEV; 

iH(ringed_propeUerlO]—KcharXM))| 

(ringed_propeUer( l] ao Kchar)(89») 

numbered"_graphs++; 

//draw the vertical lines of the graphs by drawing a series of rectangles 
for(M“0;M<mmiber_of _graphs;M++){ 
lor(j=lj<6j++){ 

Rectangle(BladePaintDC,(intX(origin[Ml.x+155-j*27)*width/640.0), 

(intX(origin[M].y+20)*height/4S0.0), 

(intX(origin[M].x+155+j*27)*width/640.0), 

(intX(wiginIM].y+395)*height/480.0)); 

> 

//draw the horizontal lines for the graphs 
fi>r(H);i<4;i++){ 


for(i“lj<4j++){ 


MoveTo(BladePaintDC,(intX(originfM].x+20)*width/640.0), 

(intX(origin[M).y+2<H<i*delta_y)+(j*20))*height/480.0)); 

LineTo(BladePaintDC,(intX(origin[M].x+290)*width/640.0), 

(intX(originIMl.y+20+(i*delta_y)+(j*20))*height/480.0)); 

> 

} 
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//complete the graphs by drawing a vertical line at the center of the graphs 

MoveTo(BladePaintDC,(intX(origin(M].x+135)*width/640.0), 
(intX(origin[M].y+20)*height/480.0)); 

LineTo(BladePaintDC,(u>tX(origin(M].x+155)*width/640.0), 
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(intX(orifiaIM].y+395)*height/4aO.O)); 


//label the x-axes 

length - qviadrbu&r, “S2.ir j/10.0); 

TextOut(BladePaiatIX:,(intX(origjn[M].x+ l(Hj*27)*width/640.0), 
(intX(origia(h4].y+400)*height/480.0), 
buffer, length); 

> 

} 


A for loop is used to perform the calculations and GDI calls to scale and draw the 
output for the graphs for each component. 

//loop through both component! 
fof(M-0>t<LDEV^l++){ 

The maximum and minimum values for each of the parameters is calculated. If the 
values are the same, they are artificially separated. The difference between the maximum 
and minimum values is then calculated. 

//initialize the maximum and minimum values for each parameter to be plotted 
max_chord=*0.0; min_chord»1.0; 
maxJhick-O.O; min thick-1.0; 
maxdrag- 0.0; mindrag- 1.0; 
max_drc“ 0.0; min dre- 1.0; 

//for each radius, compare the parameter value to the previous maximum and 
// value, and store the max/min 

for(j-0j<MRPIN[MJj++){ 

maxchord - max(max_chord,XCHD[j][M]); 
minchord - min(nun_chontXCHD[j](M]); 

maxthick - max(max_thick,XTHK[j][M]); 
minthick - min(min_thick,XTHK[j][M]); 
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maxdrag - max(msx_drig.XCD[jl[M]); 
inindrag - nun(inin_dr»f.XCD(j)[M]); 

maxcirc “ max(max_cucJ(G[j][M]); 
mincirc - min(min_cire,XG{jl[M]); 

> 

//if the maximum and minimum values are dote together, spread them apart 

if(max_chord - min_cfaotd<del) 

{maxchord - maxchord+0.1; 
minchord “ minchord-0.1;} 

iffmaxthkk - min_thkk<del) 

{max_thick - maxthick+0.1; 
minthick » min_thkk-0.1;> 

iffmax_drag - min_drag<del) 

{max_drag “ max drag+0.01; 
min drag - mindrag-0.01;} 

if{max_circ - min_cuc<del) 

{maxcirc * max circ+0.01; 
mincirc * min circ-0.01;} 

//find the differential between the min and max values for each parameter 

deHa_chord ” max chord - min_chord; 

deltajhick » maxthick - minthick; 

ddtadrag • max_drag - min_drag; 

delta drc - max circ - min circ; 

The plots are then drawn using polylines of the appropriate color and the y axis 
value labels are written. The individual points are drawn as circles. This is done for the 
chord, thickness, drag coefficient, and circulation. 

//plot the four parameters 
//start with the non-diniensiooalized chord 
//select the appropriate colored pea 

Se!ectPea(BladePaintDC,hPto(Pen(0)[0]); 


//adjust the origin of the plot 






origtajpaplLx - oripn(M].x+20, 
origin_griph.y « origin[M].y+40; 


//loop through ail the radii, store the location of each point in an 
//array of point structures, and draw an ellipse at each point 


«M(rOU < MRP!NlMl^+){ 


poiat(j].x ” (intX(origin_gnph.x+270*XRPIN[j][M])* 
width/640.0); 

point(j).y - (intX(orifin_graph.yK(max cbord-XCHD [jl[M]V 
delU_chord)*40)*height/4S0.0); 

ElUpse(BladePaintDC,point(j].x-3,poiiitUl.y-3, 

point(j].x+3,point{j].y+3); 


} 

//draw a poly line connecting all of the points 

Poiyline(BUdePaintDC,point,MRPIN [M]); 
//label the y-axis 


fof(j-Oj<3j++){ 


length « sprintf(bu£fer, *%t.3P,min_chord+<i*delU_chonl/2.0)); 

TextOut(BladeP*intDC,(intX(origin_graph.x-31 )*width/640.0), 

(intX(origin_graph.y+37-j*20)*height/480.0), 
buffer, length); 


//plot the nop-dimensioratlired thickness 

SeIectPen(BIadePaintDC,hPlotPen[ I )(0]); 
origin^graph.y - origin^graph.y+delta_y; 
for(rOj<MRPINfM]j++){ 

point[j].x ■ (intX(origin_graph.x+270*XRPINlj][M])* 
width/640.0); 

pointlj].y - (intX(origin_graph.y+((max_thki-XTHKy][M])/ 
delta_thkk)*40)*height/480.0); 

EUipse(BladePaintDC,pointy].x-3,pointy].y-3, 

point(j].x+3,point[j].y+3); 


> 


Polyline(BlaclePaintDC,point,MRPIN[M]); 




length ■ ipriatffbuflfcr, *%4.3r,min_thick+<j*dclU_lhick/2.0)); 


TextOut(BladePsiatDC,(intX(origin__giaph.x-3 l)*whhh/640.0), 

(iKX(origia_graph.y+37 : j*20)*height/480.0), 
buffer, length); 

> 

//plot the viscous drag coefficient 

SclectPeiXBUdePainfDC,hPtotPen(2] [0]); 
origin_gnph.y - originjgreph.y+delt*_y; 


fof(j-Oj<MRPIN[MJj++){ 


point[j].x * (iatX(origin_£raph. x+270*XRPIN[j) [M])* 
width/640.0); 

point (jj.y - (intX(originjraph.y+((max_drag-XCDljI(Mjy 
delta_drag)*40)*height/480.0); 

Ellipse(BladePaintDC,pomt[j].x-3,point[j].y-3, 

pointlj].x+3,point[j].y+3); 

> 

Polyline(BladePaintDC,pouit,MRPIN[M]); 


for(j-0-j < 3J++){ 


length “ sprintffbuffer, "%t.3r,min_drag+(j*tlelta_drag/2.0)); 

TextOut(BladePaintDC,(intX(origin_graph.x-3 l)*width/640.0), 

(intX(origin_graph.y+37-j*20)*height/480.0), 
buffer, length); 

> 

//plot the non-dimensional circulation ~ 

SdectPon(BladePaintDC,hPlotPen(3][0]); 
origin_graph.y - origin_graph.y+delta_y; 


fbr<jM)'j<MRPINlM]j++){ 


pointti).x-(intX(origin_jraph.x+270*XRPIN[j][M])* 
width/640.0); 

pointOJ.y ” (intX(origin_graph.y+<(max_circ-XG[j 1 [M]y 
ddta_drc)*40)*height/480.0); 

Ellipse(BladePaintDC,point[j].x-3,pointU].y-3, 

point{j].x+3,point[j].y+3); 





} 


Polyilae(BladtfaiirtIX:^oi^>fRPIN[M]); 

fiw(jrO-j<3jf+){ 

length “ aphntf(buffer, *%4.3r,min_cixc^*ddU_cira r 2.0)); 

TextOut(BladePaintDC,(iiitX(origin_graph.x-3 l)*width/640.0), 

(iatX(orifia_graph.y+37-j*20)*hdght/480.0), 
buffer, length); 


The process is repeated for the ring data in the case of a single component ringed 
propeller. In this case the values are plotted against a non-dimensionalized angle. 

//if component #1 is a ringed propeller, plot the ring parameters in 
/Abe location where component #2 is normally plotted 

it((ringed_prepeller{0]—(charX89))(Kringedj>ropeller{ 1 ]=<charX89))) 

{ 

//initialize the maximum and minimum values for each parameter to be plotted 
max_cbord=0.0; min_cbord=*1.0; 
max_thick”0.0; min_thick*1.0, 
max_drag~ 0.0; min drag- 1.0; 
max_circ= 0.0; min_circ“ 1.0; 

//for each angle, compare the parameter value to the previous maximum and 
//value, and store the max/min 

forO*Oj<MBIN[0]j++){ 

maxchord - max(max_chord,BCHDIN[jl[0]); 
minchord > min(inin_chord,BCHDIN[j][0]); 

maxjhick - max(nuwjhk±JBTHKIN[jl(01); 
minthidr * min(min_thick,BTHKIN[j)|0]); 

maxjdrag ■ max(maxjtrag3CDIN[j](0]); 
min_drag “ min(min_dfag3CDIN[j][0]); 

maxjcirc - max(max_rirc,BCIRIN[j][0]); 
min drc - min(inin_circ > BCIRIN|j][0]); 
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} 

//if the mmrinim and minimum values are close together, spread them apart 

if(max_chord - min_chonKdel) 

{maxchord - max_chord+0.1; 
min_chord - minchord-O.1;} 

if(max_thick - min_thick<del) 

{max_thick - max_thick+0.1; 
min_thick - minJhick-0.1;} 

if(max_drag - min_drag<del) 

{max_drag ” max_drag+0.01; 
mindrag * mindrag-0.01;} 

if(max_drc • min_drc<dd) 

{maxcirc » max drc+O.Ol; 
m incirc * mincirc-0.01;} 

//find the differential between the min and max values for each parameter 

deltachord - max chord - minchord; 

deltathick - maxthick • minthick; 

deltadrag - maxdrag - min drag; 

deltacirc * max circ - min circ; 

//plot the four parameters 

//start with the non-dimensionalized chord 

//select the appropriate colored pen 

SdectPen(BladePaintDC,hPlotPen[0]{0]); 

//adjust the origin of the plot 

origin_graph.x * origin[M].x+20; 
origin_graph.y ” origin(M].y+40; 

for(iH)j<MBIN[OJ j++){ 

point(j].x - (intX(origin_graph.x+270*BANGIN[j][0])* 
width/640.0); 

point [j].y - (intX(origini_graph.y+((max_chord-BCHDIN[jl[0])/ 
delta_chord)*40)*beight/480.0); 

Ellipse(BladePaintDC.point[j].x-3,point[j].y-3, 

pointUl.x+3,pointlj].y+3); 

> 





i 


I 


> • 


> ' 


» 


» 


» 


» 


£ 



326 





Poiyline(BtadeP*iitfDC,pou«>tBIN|0)); 

&»<rOj<3j++){ 

length - sprintf(bufler. ’%4.3f‘,imn_dKxrf^*ddU_chci«l/2.0)); 

TextOut(BladePiiiidX,(iinX(origin_fnvh.x*3 l)*width/640.0), 

(intX(origin_jr^»h.y+37-j*20)*height/480.0) > 
buffer, length); 


//plot the noa-dimensoaalized thickness 

SctoctPen(Bladd*nintDC,hPlotPen(l][0]); 
origin_gr»pb.y * origini_graph.y+delta_y; 
forO-Oj<MBIN|01j++){ 

point(j].x - (intX(origin_graph.x+27Q*BANGIN[j][01)* 
width/640.0); 

pointyj.y ” (intX(originjgraph.y4<(max_thidc-BTHKINy][0])/ 
delta_thick)*40) *height/480.0); 

EUipsc(BladePaintDC,po»ntlj]x-3,point[j).y-3, 

pointy].x+3,pointyj.y+3); 


Polylinc(BladcPaintDC,point,MBIN[0]); 

for(i=Oj<3j++){ 

length - sprintfCbuffer, , ?44.3r,nun_thick+(j*6elta_thick/2.0)); 

TextOut(BladePaintDC,(intX(origin_graph.x-3 l)*width/640.0), 

(intX(origin_graph.y+37-j*20)*beight/480.0), 
buffer, length); 


//plot the vijeous drag coefficient 

SelectPen(BladePsuntDC,hPlotPen[2][0]); 
origin_graph.y ■ origin_graph.y+deita_y; 
fbr(r0a<MBIN[01 < j4H-){ 

point[j].x * (intX(origin_graph.x+270*BANGIN[j][0])* 
width/640.0); 
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poiaMjJ.y * (intX(origin_graph.y-K(max drag* 
BCDIN( < i](0D/ddta_dng)*40)*height/4S0.0); 

ElUpae(BladePaintDC,point(j].x-3,poiiit[jj.y-3, 

point[jJ.x+3,poiiit(jJ.y+3); 

} 

Pdylinc(BladcPauJtDC,poinUMBIN(0)); 


for(H)-j<3j++){ 


length - sprintf(buffei, *%4.3f , ,min_drag+(j*delfa_drag/2.0)); 

TcxtOut(BladePaintDC,(intX(origin_giaph.x-31)*width/640.0), 

(intX(origin_graph.y+37-j*20)*height/480.C). 
buffer, length); 


> 

//plot the non-dimensional circulation 

SekctPen(BladePaintDC,hPlotPen[3][0]>; 
origin^graph.y * origin_graph.y+delta_y; 
for(p</j<MBIN[OJj-H-){ 


point [jj.x - (intX(origin_graph.x+270*BANGINIj]|0])* 
width/640.0); 

point[j].y « (intX(origin_jraph.y+((niax circ-BCIRJN[j|(0|)/ 
delta_circ)*40)*height/480.0); 

Ellipse(BladePaintDC,point[j].x-3,point[j].y-3, 

pointlj].x+3,pointlj].y+3); 


> 

Polyline(BladcPaintDC,point,MBIN[0]); 


for(j=OJ < 3j ++ ){ 


length = sprintffbufler, *%4.3r,min_circ+(j*delta_circ/2.0)); 

TextOut(BladePaintDC,(intX(origin_graph.x-3 l)*width/640.0), 

(intX(origin_graph.y+37-j*20)*hcight/480.0), 
buffer, length); 


} 

} 

> 
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After the plots are complete, the original pen, font, and brush are selected back 

into the device context and the pens, fonts, and brush created for this function are deleted. 

The paint process is then terminated using the EndPaint function. 

//select the original brush, pen and font back into the device 
// context and delete the fonts, pens, and brush created for this function 

SelectPen(BladePaintDC,h01dPen); 

SelectFontCBIadePaintDC,b01dFont); 

Select0bject(BladcPaintDC,h01dBrush); 

DeleteFontfhFont); 

DeleteFont(hSmallFont); 

DeleteFontfhVertFont); 

DelcteObject(hBrush); 

DcleteObject(hStandardPen); 

for(i”0;i < 2;i++} 

for(j=Oj<4j++) 

DeleteObject(hPlotPenlj]|i]); 


//close out the paint command 
EndPaintfhWnd, &ps); 

> 


C.4.2 The paintwake function. 

The paintwake function is used to draw polar plots of the axial, radial, and 
tangential wake profiles for the project component(s) to the Wake Viewer window on the 
monitor. It is not used to produce printed output. The function also writes the 
CURRPBD.VEL file that is used as input to the PBD FORTRAN executable. The 
paintwake function receives the handle to the Wake Viewer window as an argument. 


void paint\vakc(HWND hWnd) 

{ 

* declare variables that are defined in the pil e file and that * 

♦ will be used in this function * 
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extern int LDEV, prqjectflag. componentflag, 

NRWINlmaxcompl, NHARMA(max_comp], 
NHARMR| maxcomp], NHARMTj maxcomp]; 

extern float XRWIN[max_wake_rad][max_comp], 

XVA[maxwake_rad](maxwake_har][2][max_comp], 
XVR] maxwakerad J (maxwakehar ] [ 2 ] (maxcomp], 
XVTlmax wake radjjmax wake_har](2][max_comp], 
XFINAL; 

extern char WKIN[max comp][21]; 


ft 


ft 


Variable declarations ♦ 

1 



HDC 

WakePaintDC; 

//handle of the device context 



PAINTSTRUCT ps; 

//paint structure 


« 

HPEN 

hColorPenJmaxrad], 

//pens for drawing plots 

ft 



hThickPen, 

//pen for boxing plots 




hOldPen; 

//handle of original pen 



HFONT hFont, 

//font for text output 




hOldFont; 

//original font 

ft 

9 

HBRUSH hBrush, 

//brushes for drawing on the 




hOldBrush; 

//screen 



FILE 

♦out; 

//pointer to a file structure 


« 

POINT 

origin_graph[3]= 

//points defined to locate the 

ft ' 



{{110,130), 

//origins of the polar plots 




{530,130}, 

{320,330}}, 

//and the key on the screen 




origin_key={20,235}, 

points[3lj; 

-f/point structures used to plot 

A 

« 



//the velocity profiles in the 
//form of polylines 

w 


int 

length. 

//length of character strings 




i,j,k,m,n. 

//counters for loops 




ellipse size=90, 

//size of the polar plots 

A 

< 

positions for 

J; 

//number of axial 

V 




// specifying velocities in 
// pbd .vel file 


4 

float 

max[3J*'{-2.0, 

//maximum and minimum values 

» 



-2.0, 

//of the axial, radial, and 




-2.0}, 

//tangential velocities, used 
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min(3}-{ 2.0, 
2 . 0 , 
2 . 0 >. 


//to acak the polar plots 


width, height. 

//display size scaled to 640/480 

delta. 

//used to scale the polar plots 

theta(30]. 

//discrete angles for 
//calculating and plotting 
//velocities 

vdodty[3) 

[maxjcomp] 

[max wake rad) 

[30], 

//4-D array for storing the 
//calculated wake velocities 

ax_pos; 

//axial position for writing pbd 
// velocity file 

buffer) 120); 

//a buffer used for writing 
//text output 


As in the paintbld function, the window is prepared for painting with the 
BeginPaint function. If a project is not open the bulk of the code is skipped and the 
painting process is terminated. 


//create the device context 

WakePaintDC = BeginPaintfhWnd, ftps); 


//only plot the profiles if a project is currently open 
ifijjroject_flag){ 


Twenty different colored pens are created since as many as twenty different radii 
may be used for specifying the wake profile. A thick black pen is created for drawing 
frame rectangles around the plots. 

//create solid pens 

hThkkPen - CreatePen(PS_SOLID,2,RGB(0,0,0)); 

bColorPen[0]-CreatcPen(PS SOLID, 1, RGB(255,0,0)); //red 
hCoJorPcnf 1 l-CreatePen(PS_SOLID, 1, RGB(255,255,0));//ycJk>w 
hColorPen[2]«CreatePen(PS SOLID, 1, RGB(0,255,0)); //green 
hColorPen[3}-CrcatePen(PS SOLID, 1, RGB(0,255,255));//Iight blue 
hColorPen)4]«CreatePen(PS SOLID, 1, RGB(0,0,253)); //bright blue 









hColorPcn(5J-CraUcPen(PS SOLID, 1, RGB(255,0,255));//magenta 
hCokMPen[6]-€reat(J > en(PS_SOLID, 1, RGB(0,64,128)); //dark blue 


//create dotted pens 


hO>k>ri J en[7]»CreatePen(PS_DOT, I, RGB(255,0,0)); //red 
hCotorPen[8]-CreatePea(PS DOT, 1, RGB(255,255,0)); //yeUow 
hColorPen[9)-CreatePcn(PS DOT, 1, RGB(0,255,0)); //green 
hColorPenf 10]-CreatePen(PS_DOT, 1, RGB(0,255,255)); //light blue 
hCok>d»enlll]-CreatePen(PS DOT. 1, RGB(0,0,255)); //bright blue 
hCotorPen[12)-CreatePen(PS DOT, 1, RGB(255,0,255)); //magenta 
bCotorPenj 13 ]«CrcatePen(PS DOT, 1, RGB<0,64,128)); //dark blue 


//create dashed pens 


hCok>rPen( 14]«CreatePen(PS 
hCdofPeni 15]«CreatePen(PS 
hColorPenj 16]*CreatePen(PS 
hColorPenf 17}=Crea(cPen(PS 
hColorPenj 18]*CrcatePen(PS 
hColorPenj 19]=CrcatcPen(PS 


DASH, 1, RGB(255,0,0)); //red 
DASH, 1, RGB(255,255,0))y/yellow 
DASH, 1, RGB(0,255,0)); //green 
DASH, 1, RGB(0,255,255))y/light blue 
DASH, 1, RGB(0,0,255)); //bright blue 
DASH, 1, RGB(255,0,255))-7/magenta 


The size of the display area is calculated. 


//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width - (Qoat)GetDeviceCaps (WakePaintDC, HORZRES); 
height = (floaQGetDeviceCaps (WakePaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width = height*(4.0/3.0); 
else 

height = width*(3.0/4.0); 


The device default font and a hollow brush are selected into the device context. 

//create font for drawing alphanumeric output 

hFont * GetStockFont(DEVICE_DEFAULT_FONT); 

//select a thick pen for drawing the polar plot outer ring and save a handle 
// to the okl pen 

hOMPen * SelectPcn(WakePaintDC,hThickPen); 

//create and select a hollow brush so that ellipses and rectangles will 
// not overwrite pre-existing graphical output, also save a handle to the 
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//original brush 


hBnish - GetStoclK3tyect(HOLLOW_BRUSH); 
hOidBmsh - SclecMDbjectCWakcPaintDC.hBrush); 

//select the normal sued foot and save a handle to the old foot 

hOidFoot - SelectFontCWakePaintDC.hFoot); 

Thirty evenly spaced angles are used for calculating and plotting the velocity 
profiles. 

//calculate the discrete angles for which the velocities will be calculated 
fin<i*H>;i<30;t++) theta{i]“i*pi/15.0; 

The screen and the individual plots are labeled. The bounding rectangles are then 

drawn. A circle indicating the maximum velocity on the plot is also drawn. 

//align the text such that it is centered and draw the main beading 

SetTextAlign(WakePaintDC,TA_CENTER); 

length ” sprintfibufifer, "Wake Profile for"); 

TextOut(WakePaintDC,(intX320*width/640.0), 

(intX30*height/480.0), buffer, length); 

length = sprintfibuffer, "Component #%d",component_fiag+l); 

TextOut(WakePaintDC,(intX320*width/640.0), 

(intX45*beight/480.0), buffer, length); 

//label the three polar plots 

length “ sprintfibuffer, "Axial”); 

TextOut(WakePaintDC,(intX(origin_grajA{axial].x)*width/640.0), 

(intX(origin_graph[axial].y-120)*height/480.0), buffer, length); 

length * sprintfibuffer, "Radial"); 

TextOut(WakePaintDC,(intX(origin_jraph(radial].x)*width/640.0), 
(intX(origu>.jraph(radial].y-120)*height/480.0), buffer, length); 

length “ sprintflhuffer, "Tangential"); 

TextOut(WakePaintDC,(intX(origini_graph[tangential]x)*width/640.0), 

(intX(origin_graph[tangential].y-120)*height/480.0), buffer, length); 


| 
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t 


i 
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SctTextAlign(WakePaintDC,TA_LEFT); 


//dnw the rectangles that enclose the polar plots and the circles that 
//indicate the maximum velocities 

fbr(j”axialj<«tangentialj-^) { 

Rectangle(WakePaintDC,(intX(origin_graph[j].x-100)*width/640.0), 
(intX(origin_jgraph[j].y-100)*width/640.0), 
(intX(origin_graphlji x+1 00)*width/640.0), 
(intX(ongin_gr^phlji.y+100)Sndth/640.0)); 

ElUpse(WakePaintDC,(intX(origin_graph(j].x-ellipse_stze)*width/640.0), 
(intX(origin_graph[j].y-dlipsc_sizc)*width/640.0), 

(LntX(origin_£raph(j].x+ellipse_size)*\vidth/640.0), 

(intX(origin_ J graph[j].y^llipse_size)*width/640.0)); 


} 


The velocity components are calculated at each radius and angle using the velocity 
harmonics, which are stored in memory as global variables. 

//calculate the axial, radial, and tangential velocities for each angle 
//first, loop through the radii 

for(k=0;k<NRWIN[component_flagl;k++){ 

//include the Oth order terms 

for(m=0;m<30;m-H-){ 

velority[0][component_flag)[k][m]=XVA[k][0](01[component_flagl; 
vetocity[l][component_flag][kj[m]= XVR[k] [0] [0] [componentflag], 
velocity [2] [component_flag] [k j[mj= XVT[k] [01 [0] [componentjlag j; 

//add the contributions of the higher order terms for the axial, radial, 

//and tangential velocities 

for(n“l;n<NHARMA[component_flag];n++) { 

vekxnty[0]|component_flagl[k] [m]=velocity[0] [componentjlag] [k] [ m]+ 
XVA[kl(n][0][component_flag]*cos((n)*theta(ml); 

velocityIO][component_flag][kl[m]=velocity(0]Icomponent_flagl[k|[m]+ 

XVA[k][n] 111 [component_flag] *sin((n)*theta[ m[); 


> 

for(n“l;n<NHARMR[coniponent_flag];n++){ 









velocity! ll[ c o mp oocnt_fl«g][k](ml-velodty!ll[compo n e n l_Q*g)[kl[tn)-t- 
XVR{k](o][0)(coiiiponent_flag)*cos((n)*theta[mD; 

velocity! ll[ c omp ooent_ flaf][k]!in}-vclocity! l!lco m p oo c ft t_flagl[k|[ml+ 
XVR(k](B}( 1 !lcomponenl_fl«f)*tu>((n) > theta!ml); 

1 

fbr(n-1 ;n<NHARMT!componeat_fUgl; n++) { 




velodty{2]Icooipooent_flag)!k]Im}“velocity[2Ucomponent_flag][k]|m]+ 
XVTtk][n](0)(compooeot_flag]*coc((n)*theUlin|); 
velority(2][compooemjlag][k][ml-velocity[2][component flag][k)|m]+ 
XVTIkl [n] J1 ] (compooentflag] *sin((n)*thetaj mj); 


) 





ft 


The maximum and minimum values for the axial, radial, and tangential velocities 

are then calculated using three nested for loops. 

//loop through the axial, radial, and tangential velocities for each radii 
//and angle to find the maximum and minimum values 

for(fc"0 ;k<NRWINlcomponent_flag] ;k++) 

{ 

for(n= axial; n<= tangential; n++) 

{ 

for(m=O;m<30;m++) 

{ 

max(n] = max(max[n],velocity[n][component_flag][k](m]); 
min[n] ■ min(niin(n],velocity[n][compooent_flag][k)(m]); 

} 

} 

> 


ft 


ft • 



ft 


ft 


A velocity profile file formatted for use by PBD is then printed. 

//open a file and write the wake velocities at a series of axial positions 
// from upstream (x«~3.0) of the propeller to at least the XFINAL position 
// specified in the PBD settings 

//open the file, print a warning if unable to open the file 


ft 
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« 


« 




« 


« 












if ((out - fbpen("cunpfad.vel", "w*)) “ NULL) ( 

Mcs*«*dBccp(MB_I(X)NEXCLAMATION); 

MessageBox(hWnd, "Unable to open file 'cunpbd.vd'.\ 

■WARNING!", MBICONSTOP | MBOK | MBTASKMODAL); 

} 

etse{ 

//calculate the number of axial positions to output data for 
J - (intK(XFINAU1.5)+3); 

//print the bender line 

fprintf(out, "ZONE T-"Inflow", 1= %d, J= %d, F=POINTAn",J,NRWIN[0|); 

//loop through radii at which the wake is specified 

for (i*0;i<NRWIN[0];i++) 

//loop through each axial position 

for(ax_pos=-3 0; ax_pos<=XFINAL; ax_pos+=1.5) 

//print the axial position, radius, axial velocity, radial velocity, and 
// tangential position 

fprintffout," %f %f %f %f %f\n", axjjos, XRWIN{i)(01, 
velocity|0][0]Ii)[01, vdodtymi01l»l[01, velocity[2][0Hi][0]>; 

//dose the file 

fclose(out); 

} 

-<« 

The difference between the maximum and minimum values to be plotted for each 
of the three plots is calculated and adjusted. The minimum and maximum values are 
labeled on the plots. 

//loop through the axial, radial, and tangential plots, determine 
// the maximum and minimum values that will be used on the plots, 

// draw the values on the plots, then draw the polylines on the plots 

for(n” axial; no tangential; n++){ 

//calculate the differential between the maximum and minimum values 
delta “ max[n]-min[n); 
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//if the differential is ck»e to zero, aet the differential to 0.1 

iffdeita<del) min[n] - min(n]-0.1; 

//recalculate the differential and widen the range so that the max 
// aad mia velocities do not plot exactly on the limits of the graphs 

delta “ max(n]-min(n]; 

max(n] - max[n] + 0.1'delta; 

min[n) “ min[n] - 0.1 *deha; 

//draw the min value on the plot 

length “ sprintfl(buffer,"%4.3f l ,inin[n]); 

TextOut(WakePaintDC,(intX(origini_graph(n]x+40)*width/640.0), 
(intX(origin_graph[n].y+80)*height/480.0), buffer, length); 

//draw the max value on the plot 

length - sprintf(buffer,*%4.3r,max[n]); 

TextOut(WakcPaintDC,(intX (origini_graph|n].x-95)*width/640.0), 
(intX(originjgraph(n].y-95)*height/480.0), buffer, length); 


» • 


The velocity profile for each plot is drawn as a series of polylines corresponding to 

the different radii. The angle corresponds to the angular position relative to the hub and 

the magnitude is the magnitude of the velocity component. 

//loop through each of the radii 

for(k”0;k<NRWIN[component_flag];k-H-) 

{ 

//select the pen corresponding to the appropriate radius 

SelectPen(WakePaintDC,hColorif > en[k]); 

//calculate the x and y value in screen coordinates for each angle 
//and velocity and store in the points array 

for(nj-0;m<30;m+-t-) 

{ 

points(m).x» (intX(originjjraphln].x+ 

(((velocity[n](component_flagj(lc][m]-min[n])*ellipse_size/ 

(max[n]-min{n]))*cos((pi/2.0)-Hheta[m])))*width/640.0); 


LI 
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poiatsM.y- (intX(origiajnph{n].y- 

(((vetodty(n](coinpooeatJIaf][k)(mHnin(n])*eUipse_(ize/ 

(m*xJn}-mintn]))**i*((pi/2.0)+theUjm])))*hci^u/480.0); 

> 

//doae the polyline by setting the final point equal to the first 

pointsf30].x-pointsfO].x; 

points|30].y-points|0).y; 

//draw the polyline 


Poiyline(WakePaintDC,points,31); 


} 



I 


» 


} 


A key is drawn to indicate the correlation between the pen colors and styles and 

the radii. 

//draw the key 

//first, draw the heading 

length = sprintfflxiffer, 'Radius''); 

TextOut(WakePaintDC,(intXorigin_key.x*width/640.0), 
(intX(originkey.y+15)*height/480.0), buffer, length); 

TextOut(WakePaintDC,(intX(originkey. x+70) *width/640.0), 

(intX(origin_key,y+15)*height/480.0), buffer, length); 

//write each value of radius 


for(k=0Jc<min(10,NRWIN[component_flag]);k-t-t-) 

{ 

length = sprintffbuffer, *%3.2r,XRWIN[k](c»mponentJlag]); 

TextOut(WakePaintDC,(intXorigin_key.x*width/640.0), 
(intX(origin_key.y+45+k* 15)*height/480.0), buffer, length); 

//sdect the appropriate pen and draw a rectangle indicating the pen 
//style and color 

SelectPen(WakePaintDC,hColorPen[k]); 

Rectangle(WakePaintDC,(intX(origin key.x+40)*width/640.0), 
(intX(origin_key.y+4*+k* 15)*height/480.0), 
(intX(origin_key.x+50)*width/640.0), 


I 


I • 



» 


» 


» 


» 
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(iatX(ongm_key.y+57+k* 15)*hrifbt/4SO.O)); 

> 

//if there an more than 10 radii, draw another column the same way 

if( 10<NRWIN[componcnt flag]) 

{ 

length - sprintffbuffcr, ’Radius'); 

TextOU(WakePeintDC,(iiitX(origin_key.x+70)*width/640.0), 
(iatX(origin_key.y+15)*hdght/480.0), buffer, length); 


for(k- 10;k<NRWINlcotnpoocirt flag]Jt++) 

{ 

length - sprintffbuffer, *%3.2f\XRWrN[k)|coniponent_flag]); 

TextOut(WakePaiiUDC ) (iiitX(origin_key.x+70)*width/640.0), 
(intX(o*ig>o_key y + ^3 + (k-10)* 15)*beight/4*0.0), buffer, length); 

SelectPen(WakeP«intDC,hColorPen[k]); 

Rectangle(WakePaintDC,(intX(origin_key.x+110)*width/640.0), 
(intX(origin_k^.y+48+(k-10)*15)*hdght/480.0), 

(intX(°rigin_key. x+120) *width/640.0), 

(intX(origin~key.y+57+(k-10)* 15)*height/480.0)); 

> 

> 


After the plots are complete, the original pen, font, and brush are selected back 
into the device context and the pens, fonts, and brush created for this function are deleted. 
The paint process is then terminated. 


//select the standard pen and brush styles 

SelectFont(WakePaintDC,h01dFont); 

SefectPen(WakePaintDC,hOldPen); 

SelectObject(WakePaintDC,hOldBnish); 

//delete objects that were created but are not currently selected into the 
//device context 

for(i=0;i<20;i++) DeleteObject(hColorPen(i]); 

DefeteObject(hBnish); 

DeleteFont(hFont); 

DeleteObject/hThickPen); 






* 


EwPaiatfbWnd, ftps); 

) 

C.4J The piiatplot Auctisc 

The paintplot function uses the draw function to draw the PLL plots on the Plot 
Viewer window. The paintplot function does not provide printed output. The paintplot 
function receives the handle of the Plot Viewer window as an argument. It passes a 
screen location, a pointer to the data array to be {dotted, the index of the plot name, and 
the handle of the screen device context to the draw function. Both functions are shown 
below. 

void paiatpiot(HWND hWnd) 


♦ declare variables that are defined in the pll.c file and that * 

* will be used in this function * 


ft • 


extern im projectJElag. plottjagt, drawjdotjlag; 

extern float OKHlDINPUTlnmcoinpllniax^rad], 

PnXMANGLEUNDISTURBEDfmaxcompl (maxrad ], 

CHORIXIAI^[max_coinpl[inax_radl, 

ITTCHAN(H£INDUCED[max_oompHniax_radl, 

UAINEfl-tCTTVEf maxjxxnp] [ max_radJ, 
UTINIimx_coap][nttx_rad). 
UAINDUCED{awx_coinp)Iniax_tad], 
UTINDUCEDfiMxcoinpIfinaxrad], 

THKXNESS{inax_ooinp](awx_nd], 

ORClIl^TIC)NINRniBaK_coinpjj«jax_rad], 

DRAG(m>xjx>np](inax_rad], 

ORQjlATKM4CALC[max_comfi][max_rad], 

LOCALCL4anx > .coaip][nax_rad), 

IX)CAIXnimax_coinp]imax_rad], 

LOCALCQfmax comp)[max nd), 
CAVITATKd4NUMBER(oux_ccMnp][n>ax_ndl; 


V 






/•***••*♦*•***•**•••*******••**•***•****' 
* Variable iKtotioM 


/ 



HDC PlotPaiatDC; //handle of the device context 

PAINTSTRUCT pc; //paint structure 

The paintpiot function prep ar es the Plot Viewer window for painting using the 
BeginPaint function. If there is no open project, or if the draw_plot_flag has not been set, 
the bulk of the code is slapped and the paint process is terminated. 

//create the device context 

PlotPaintDC * BegnPaintfhWnd, Ape); 

//only plot the parameters if a protect is currently open and the draw flag has been set 
ifKpn>tect_flag)ftA(draw_piot_fiag)){ 

The paintpiot function evaluates the plotjpage flag. This variable indicates which 

of the four PLL plot pages is to be drawn. Each of the four cases makes four calls to the 

draw function. The draw function receives an index that determines the location on the 

screen where the plot is to be drawn, the address of the first parameter value to be plotted, 

an index of the name of the plot, and the handle of the device context. 

//plot the appropriate page of output by passing an index for the position of each graph, the address of the 
// appropriate parameter, an index indicating the storage location of the plot name, and a handle to the 
// device context, for each graph 

switch(plot_fHge) 

{ 

caseO: { 

draw(0^CHORDINPUTl0][0], O.PlotPaintDC); 

draw<l,&PrTCHANGLEUNDISTURBED(01[0], PlotPaintDC); 

drawOACHORDCALqOKO], 1 .PlotPaintDC); 

draw(3,APTTCHANGLEINDUCED[0][0] > 10J>lotPaintDC); 

break; 

> 

cascl:{ 


draw(0,AUAINEFFECnVE[0][0], 


6,PlotPaintDC); 








dnw(l^UT1N(0](01, 8J>lotPiintDC); 

dnwOAUAINDUCED(0U0], UjnotPaintDC). 

d«wO.*UTINDUCED(0](0), 12.PlotPaintDC); 

«- 1 — 

Pfrlf, 

} 



ami: { 


dnr*(0,*iTaCKNESS[0J[01, 

dr«w(l,ACIRCULATIC)NINPUnO)lOJ, 

dnw(2,ADRAG[0][0), 

draw(3,&CIRClJLATIONCALC(0](0), 


2, PlotPaintDC) 

3, PtotPamtDC) 
7,PloCPaintDC) 

4, PlotPaintDQ 




«-«-- 

Ofctt, 

} 


cmc 3: { 


draw(0,&LOCALCL{0][0], 

dnw(l.ALOCALCTIOHO], 

diaw(2,&LOCALCQ(0][0], 

draw(3,ACAVITATIONNUMBER[0](0], 


nj’IotPaintDC) 

14 r PIotPaintDC) 

15,PlotPaintDC) 

I6JPIotPaintDC) 


t 


break; 

> 

} 


i • 


After the plotting is complete, the paint process is terminated, 
//dose out the paint command 
EndPaintfhWnd, Ape); 


The draw function draws cartesian plots of the PLL graphical output on four 
separate pages for each component, or with both components on the same plots. The 
plots are drawn on the screen. This function does not produce printed output. 


void drewfint graph origin index, float ♦parameter, int plot name index, HDC PlotPaintDQ 
{ 

/»»*••»•••*•*••••**••••*•*•*•••«•«**«••«•«••*••**«••»»*************** 

♦declare variables that are defined in the pll.cfik and that ♦ 

♦wiU be used in this function ♦ 


» 
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* 


plotjiage, pk>t_component _flag, draw jjlotflag, LDEV; 
numberradii [ max_comp]; 

RADIUS[max_comp] [ maxrad]; 


extern int 
extern int 

extern float 


Variable declarations 


/ 


HBRUSH hBrush, 
hOldBrush; 

HPEN hPlotPen[4][2], 
hStandardPen, 
hCHdPen; 

HFONT hFont, 

hMediumFont, 

hSmallFont, 

hOldFont; 

LOGFONT UFont; 


POINT origin_graph{4]= 
{{0,10}, 
{320,110}, 
{ 0 , 220 }, 
{320,320}}, 

left={40,15}, 

right={290,105}, 

point[max_rad]; 


//brushes for drawing on the 
//screen 

//pens for drawing plots 


//fonts for drawing alphanumerics 


//logical font structure for 
// creating the fonts 

//points defined to locate the 
// origins of the plots 


//points that define the extents 
// of the plot rectangles 

//point structures used to plot 
// the parameters in the 
// form of polylines 


int 

decimaljjlaces. 

//indicator of decimal places to 
// display for y-axis labels 


length. 

//length of character strings 


i=0,j. 

//counters 


shift=3; 

//number of pixels to shift 
// y-axis labels 

char 

buffer! 120]; 

//character string used for 
// text output 

float 

max_vaiue=-10.0, 

//max value of parameter 


min_value=10.0. 

//min value of parameter 


delta. 

//(max-min) for parameter 


width, height; 

//display size scaled to 640/480 


char 


plot_name[ 17][40]«{ 


//plot labels 





4 




‘CHORD DISTRIBUTION INPUT*. 

‘CHORD DISTRIBUTION CALCULATED", 
THICKNESS DISTRIBUTION INPUT*. 
‘CIRCULATION INPUT*. 

"CIRCULATION CALCULATED". 

■AXIAL INFLOW VELOCITY. NOMINAL*, 
•AXIAL INFLOW VELOCITY. EFFECTIVE". 
"DRAG COEFFICIENT*. 

TANGENTIAL INFLOW VELOCITY*. 
"UNDISTURBED PITCH ANGLE", 
■INDUCED PITCH ANGLE", 

•INDUCED AXIAL VELOCITY*, 

"INDUCED TANGENTIAL VELOCITY", 
"LOCAL LIFT COEFFICIENT*, 

•LOCAL THRUST COEFFICIENT*, 

"LOCAL TORQUE COEFFICIENT", 

"LOCAL CAVITATION NUMBER"}; 


The size of the display area is calculated to ensure device independence. Small, 
medium, and normal size fonts, as well as a hollow brush and eight pens are created for 
the purpose of drawing the output. 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width = (AoaQGetDeviceCaps (PlotPaintDC, HORZRES); 
height = (AoaQGetDeviceCaps (PlotPaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width = height*(4.0/3.0); 
else 

height = width*(3.0/4.0); 

//create fonts for drawing alphanumeric output 

hFont - GetStockFont(DEVICE_DEFAULT_FONT); 
GetObject(hFont,sizeof(LOGFONT),&lFont); 
lFont.lfHeight = -8; 

hSmallFont = CreateFontIndirect(&lFont); 

GetObject(hFont,sizeof(LOGFONT),&lFont); 
lFont.lfHeight = -10; 


i 
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hMcdhunFoat - CreaieFontIndirect(&lFont); 

//create and select a hollow brush so that ellipses and rectangles will 
// not overwrite pre-existing graphical output, also save a handle to the 
//original brush 

hBrush - G«StockObject(HOLLOW_BRUSH); 
hOkffimsh - SdectObjcct/PlotPaintDC.hBrush); 

//create pens fix drawing plots 

hPlotPen[0][0] - CreatePen(PS_SOLID, 1, RGB(255,0,0)); 
hPlotPen[l](0] - CreatePen(PS_SOLID, 1, RGB(0,255,0)); 
hPk>tPen[2][0) “ CreatePen(PS_SOLID, 1, RGB(0,0,255)); 
hPkjtPen[3J{0J - CreatePen(PS_SOLID, 1, RGB(255,0,255)); 

hPlotPen[0][l] = CreatePen(PS_DOT, 1, RGB(255,0,0)); 
hPlotPen{l](l] = CreatePen(PSDOT, 1, RGB(0,255.0)) ; 
hPlotPen[2][l] * CreatePen(PS_DOT, 1, RGB(0,0,255)); 
hPlotPen[3][l) = CreatePen(PS_DOT, 1, RGB(255,0,255)); 

hStandardPen = CreatePen(PS_SOLID, 1, RGB(0,0,0)); 


I « 


« 
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//select the medium font for labeling the plot 

hOidFont = SelectFont(PlotPaintDC,hMediumFont); 

The plot is labeled, and the graph is made by drawing a series of rectangles. The x 
axis is then labeled. 

//read the plot name into the buffer and write the plot name 
while(plot_name[plot_name_index][i]!=NULL){ 

bufiferfi] = plot_name[plot_name_index][i]; 

i++; 

} 

TextOut(PlotPaintDC,(intX(origin_graph[graph_origin_index].x+50)*width/640.0), 

(intX(origini_graphlgraph_origin_indexj.y)*height/480.0), buffer, i); 

//select the standard pen and draw the graph for plotting the parameter by 
//drawing a series of rectangles 

hOldPen = SelectPen(PlotPaintDC, hStandardPen); 

for(i=0;i<5;i-H-) { 

Rectangle(PlotPaintDC, 
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(intX(origin_jn^graptaj>riginJndex].x+kft.x+i*25)*width/640.0), 
(intX(origin_jr*phlgr»ph_origin_indcx].y+left.y)*hcight/480.0), 
(intX(originjraph{griphj>rigin_index).x+right.x-i*25)*width/640.0), 
(intX(originjpaph(graph_originjndexl.y+right.y)*height/48().0)); 


Rcctangle(PlotPauuDC, 

(intX(origin_graph[graph_origin_index].x+lcft.x)*width/64('.0), 
(intX(origin_graph[graph_origin_index] ,y+lefty+i*9) *heigtt/480.0), 
(intX(origin_graph[graph_origin_indexj. x+right x)*width/640.0), 
(intX(origin_jraph[graph_origin_indexj.y+righLy-i*9)*hiight/480.Q)); 

> 


Rectangle(PlotPaintDC, 

(intX(originjpaph[gniph_origin_index].x+left.x)*width/640.0), 
(intX(origiojgraphjgraph_origin_index].y+left.y)*height/480.0), 
(intX(originjgraphigraph_origin_index].x+lcft.x+125)*width/640.0), 
(intX(origin_graph[graph_origin_index].y+right.y)*height/480.0)); 

Rcctanglc(PlotPaintDC, 

(intX(origin jjraphfgraph_origin_index].x+left.x)*width/640.0), 
(intX(origin^graph[graphorigin_UKlex].y+left.y+45)*height/480.0), 
(intX(origin _graph[graph_origin_index].x+right.x)*width/640.0), 
(intX(origin _graph[graph_origin_indexl.y+righLy)*height/480.0)); 

//select the small font and label the x-axis of the plot 

SelectFont(PlotPaintDC,hSmallFont); 

for(i=0;i<H;i++){ 

length = sprintf(buffer, "%2. ir,i/10.0); 

TextOut(PlotPaintDC, 

(intX(origin_graph[graph_origin_index].x+left.x-5+i*25)*width/640.0), 
(intX(origin_graph[graph_origin_indexi.y+righty+10)*height/480.0), 
buffer, length); 


> 

A switch is used in calculating the maximum and minimum values to be plotted. If 
the plot_component_flag is zero or one, then only the first or second component is 
considered. Otherwise both components are considered since they will be plotted 
together. 

//if the pkX_component_flag is one or two, look at only that component to 
//find the maximum and minimum values to plot, otherwise consider both 

switch(p!ot component flag<2) 

{ 





< 


case&be: 


fcr0-0j<2j++){ 
for(i-0;i<oui«ibcr_radiilj];i-H-) { 

max_vatue - 

max(niax_vaiuc,panuncterlj*nMx_rad+i]); 
min_value » 

min(min_value,panuneter{j*max_rad+i]); 

> 

} 

break;} 

case true: 

{ 

for(i=0;i<nuinber_radiilplot_component_flag);i-H-){ 
maxvalue = 

max(max_value,parameter{plot_component_flag*inax_rad+i]); 
minvalue * 

min(minva]ue,parameter{plotcoinponent_flag*max_rad+iJ); 


break;} 

} 


The maximum and minimum values are adjusted to a reasonable range for the plot 

and the y axis scale is plotted with the appropriate number of significant digits. 

//adjust the maximum and minimum values such that the range of the plot 
//is reasonable and the values are printed to the correct number of 
//significant digits 


//if the maximum value is greater than zero, use logs to establish the 
//maximum value as a round number slightly higher than the maximum value, 
//otherwise set the maximum value to 0.0 


if(max_va]ue >“ del) 

max_value * pow(10.041oor(logl0(max_value»)* 

(1.0+floor(max_value/(pow( 10.0,floor(log 10(max_value)))))); 

< 


else if(max_value <= -del) 


€ 
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maxvalue - 0.0; 

//if the minimum value is less than zero, use logs to establish the 
//minimum value at a round number slightly lower than the minimum value, 
//otherwise set the minimum value to 0.0 

if(min_value <” -del) 

min_value - -(pow(10.0,floor(k)gl0(fab6(min_value))))* 

(1 0+floof(fabs(min_v*lue)/(porw( 10.0,fkjor(kjg 10(fabs(min_valuc)))))))); 
else ii(min_value >* 0) 
minvalue = 0.0; 

//if the ma ximum and minimum values are very close together, spread them 
//apart slightly 

if(maxvalue - min_value<del) 

{ maxvalue = maxvalue + 0.1; 

iff(min_valuc - 0.1)> 0.0) 

min value = min value -0.1; 

} 

//find the difference between the maximum and minimum values 
delta - max value - min value; 

//initialize the decimaljjlaces indicator 
dccimal_places - 2; 

ifl(fabs(max_value)>del) 
decimal_places = 

min(floor(IoglO(fabs(max_value))),decimal_pIaces); 
if(fabs(min_value)>del) 
decimal_places = 

min(floor(loglO(fabs(min_value))),decimalj>laces); 

//label the y-axis based on the value of the decimaljjlaces indicator 

switch/decimaljjlaces) { 

case 2: 

{ 
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fcf(W)-4<lI;»++M 

length »ipriatl(buffer, *%d",(iJilXinax_value-((i*bclUV10.0))); 

TcxtCX<(PV)tP«intDC > (intX(origia_graph|graph origin index],x+leftx+ 
ihift*4-40)*wtdthAS40.0), 

(intX(origia_graph(graf>h origin index].y+left.y* 
3+i*9)*hd^rt/4«0.0),~bu5erriengUi); 


> 




« 




t 






break;} 

r 

for(i*0;i<ll;i++){ 

length * sprintf(bu£fer, *%5.0T,max_vaJue-<(i*delta)/10.0)); 

TcxtOut(PiotPaintDC,(intX(origin_graph [graph origin index],x+Ieft.x+ 
shift*3-40)*width/640.0), ' 

(intX<origin_graph(gnph origin index],y+Icft.y- 
3+i*9)*height/480~0), buffer, length); 

> 


Iweak;} 

caseO: 

< 

for(i*0;i < ll;i‘ H -){ 

length “ sprintf^buffer, ”%3.ir,max_value-((i*deltaV10.0»; 

TextOut(PlotPaintDC,(intX(origin_graph[graph_origin_index].x+Ieft.x+ 
shift*3-40)*width/640.0), 

(intX(origin_graph[ graph origin index].y+left.y- 
3+i*9)*hejght/480 _ 0), buffer, length); 


) 


break;} 


case 1. 

for(i-0;i<ll;i++){ 

length - sprint fl b u ffier, *%5.2r,max_value-<(i*deita)/10.0)); 
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TextOut(PtotPaintDC,(iatX(otigia _graph|graph_originJndex).x+leftx+ 
shift*2-40)*width/640.0), 

(intX(origia_gr»ph]graphj)rigin_index].y+left.y- 
3+i*9)*height/4IO.OX buffer, length); 


) 


break;} 


» 


case -2; 

{ 

length - sprintffbuffer, •%5.3f',max_value-{(i*delta)/10.0)); 

TextOut(PlotPaintDC,(intX(origin_graph[ graph origin index],x+left.x+ 
shift* 1-40) *width/640.0), 

(intX(origin_graph[graphoriginindex]y+lcft.y- » 

3+i*9)*height/480.0), buffer, length); 


} 


break;} g 

default. 

{ 

for<i=0;i<l I ;i++){ 

length * sprintffbuffer, ”%5.4r,max value-((i*delta)/10.0)); ^ 

TextOut(Pk>tPaintDC,(intX(origini^graph;graph_origin index],x+left.x- 
40)*width/640.0), 

(intX(origin_graph[graph origin index],y+left.y- 

3+i*9)*height/480.0), buffer, length); g 

} 






break;} 

> 

//select the normal size font for plotting the key and page # 
SelectFont(PlotPaintDC,hFont); 




ft 


ft 
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The {dot is drawn using a switch to determine if one or both of the components 
should be plotted. The plots are drawn with polylines, using circles to mark the individual 
points. The solid pens are used for the single component plots and for component one on 
the dual component plots. The dotted pens are used for component two on dual 
component plots. 

//if the plot_compooent_flag is one or two, plot only the values for that component, otherwise {dot both 
// on the same graph 

switchQdot component flag<2) 

< 

case false: 

{ 

//loop through the two components for the case where both will be plotted together 
for(j-Oj<2j++){ 

//select the color pen for the appropriate graph 

SelectPen(PlotPaintDC,hPk)tPen[graph_origin_index]|OJ); 

//loop through the points to be {dotted, and for each point calculate and store the x and y coordinates to 
//be plotted also draw a circle using the solid pen to indicate the location of the point 

for(iK);i<number_radiib | ;i++) { 

point] i].x - (intX(origin_graph[ graph origin index],x+ 
left. x+RADIUS(j] f i] *250)*width/640.0); 

point[i].y - (intXCorigin_graph[graph_originJndex].y+ 
left. y-{(parameter[j * max_rad+i ] -maxval ue)/ 
delta)*90)*height/480.0); 

Ellipse(PlotPaintDC,point(i].x-2,point[i].y-2,point[i].x+2, 

poiid|i].y+2); 

> 

//select the style and color pen for the appropriate component and graph 
SelectPen(PlotPauitDC,hPlotPen[graph_ongin_index][j]); 

//plot the polyline 

Polyline(Pk<tPaintDC,point,nuniber radii[j]); 

} 


//plot the key for the page 
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lbiO-OJ<2a++M 
//write the • C o mp o n e nt r 

length “ qprinti(bufier, ’ C o m p o nent #%d*j+l); 

TextOut(PtotPaiiitDC,(intX30*wtdth/640.0), 

(intX(400+j*20)*heighl/480.0), buffer, length); 

//using the appropriate pen. dnrw a line that indicates which polyline 
//is component #1 and which is co m p onen t #2 

SclectPen(PlotPaintDC,hPlotPen(0][j]); 

Mov«To(PlotPaintDC,(intX170*width/640.0X 

(intX(408+j*20)*height/480.0)); 

LineTo(Pk)tPaixUDC,(intX185*width/640 0), 
(intX(408+j*20)*height/4*0.0)); 


break;) 

case true: 

{ 

//sekct the color pen for the appropriate graph 

SelectPen(PlotPaintDC,hPlotPen[graph_origin_index]|0]); 

//loop through the points to be plotted, and for each point calculate and 

//store the x and y coordinates to be plotted 

//also draw a circle using the solid pen to indicate the location of the 

//point 

tbr(i"0;i<nuniber_radii(plot_componem_flag];i++){ 

point{i].x * (intX(origin_graph[graph origin index].x+ 
kft.x+RADIUS(ptot_compooent_flagi[i]*250) ♦width/640.0); 

point(i].y “ (intX(origini_graph|graph_origin_index].y+ 
left.y-((pnnunetertplot component flag’max rad+ij- 
max_valueydelta)*90)*beight/480.0); 

EUipse(PkXPaintDC,point[il.x-2,point[iJ.y-2,point[iI.x+2,point[i}.y+2); 

) 

//select the color pen for the appropriate graph 

Potyline(PlotPaintDC,point,nuinber_radii[plot_component_f]ag|); 

//write the “Co mpon ent #" and draw a line that indicates the pen style and 
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//color 


length ■ jprindtbuffer, ‘Component #%d* ,piot_component_flag+1); 

TextOut(PlotPaintE>C > (iiitX30*width/640.0X 

(mtX400*hdght/480.0), buffer, length); 


> 


break;} 


The page number is drawn to the screen. The original pen, brush, and font are 
selected back into the device context, and the fonts, pens, and brush created for this 
function are deleted. 


//write the "Page #" 

length = sprintffbuffer, “Page #%d",plot_page+l); 

TextOut(PlotPaintDC > (intX50*width/640.0), 

(intX(380)*height/480.0), buffer, length); 

//restore the original brush, font, and pen 

SelectObject(PlotPaintDC,h01dBrush); 

SekctPen(PlotPaintDC,h01dPen); 

SelectFont(PlotPaintDC,h01dFont); 


//delete the brushes, pens, and fonts 

DelctcObject(hBrush), 

DelcteObject(hFont); 

DeleteObjectfhMediuniFont), 

DekteObjcct(taSmallFont); 

DeleteObjectfhStandardPen); 


> 


fbr(F*0;i<2;»++) 

for(j=0j<4j++) 

DeleteObject(hPlotPen[j][i]); 


C.4.4 The printplot function. 

The printplot function is almost exactly the same as the paintplot function. The 
printplot function is used to draw the same output as the paintplot function, but it is drawn 
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to the printer instead of the monitor. The printplot function receives the handle to the 
printer device context after the printer device context has already been prepared for 
painting. The printplot function uses the drawprint function in the same way that the 
paintplot function uses the draw function. Since the functions are nearly exactly alike, the 
printplot and drawprint functions are not shown here and instead are listed in the final 
section of this appendix. 


C.4.5 The paintout function. 

The paintout function is used to draw text output files to the Output Viewer 
window on the monitor. The paintout function receives the handle to the Output Viewer 
window. 

void paintout(HWND hWnd) 

{ 

* declare variables that are defined in the pli.c file and that will be used in this function * 




extern int projectflag, Scroll Pos, LinesInWindow, Total_Lines, 
outputflag, text_color, LineHeight; 


* Variable declarations 


HDC OutPaintDC; 
PAINTSTRUCT ps; 


RECT rect; 


HFONThFont, 

hSmallFont, 

hOldFont; 

LOGFONT IFont; 


char OUTFILE[14J; 


//handle of the device context 

//paint structure 

//rectangle structure for 
// defining the text region 

//fonts for text output 

//original font 

//logical font structure for 
// creating fonts 

//a character string indicating 
// the output file 
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//pointer to a character buffer 

//number of bytes read by Jiead 

//display size scaled to 640/480 
// used to scale the polar plots 

//file handle 

The paintout function uses the BeginPaint function to prepare the window for 
painting. If the there are no PLL or PBD output files, the bulk of the code is skipped and 
the paint process is terminated. If there are output files to display, the malloc function is 
used to allocate enough memory to store a file of the size specified by max_buf_sz 
parameter. The maxbufsz parameter is defined in the header.h file as 10000. 

//create the device context 

OutPaintDC = BeginPaintfhWnd, &ps); 

//only draw output if there is a project open and files to be drawn 

ifl(project_flag)&&((acccssCsuinmaiy.out\ 0) = 0)||(access("pbdout.ktq", 0) *= 0))){ 

//allocate memory for reading the file into 

buffer * (char *) malloc((niax_buf_sz)*sizeof (char)); 

The size of the display area is determined and scale factors are calculated for the 

purpose of making the output device independent. 

//determine the width of the display in pixels and the height of the display 
//in raster lines and cast them as floats 

width * (fioat)GetDeviceCaps (OutPaintDC, HORZRES); 
height - (float)GetDeviceCaps (OutPaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

iff(width/htight)>(4.0/3.0)) 

width ” beight*(4.0/3.0); 
else 

height - width*(3.Q/4.0); 


njbytes; 


float width, 
height; 


HFILE in; 
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A rectangle is initialized for use with the DrawText function, scaled to the 

dimensions of the device context display area. Small and normal sized fonts are then 

created for painting the text output. 

//initialize the rectangle for displaying the file 

rectleft - (intX20*width/640.0); 

red right - (intX623*width/640.0); 

nettop - (intX 15*height/480.0); 

red. bottom - (intX6000*height/480.0); 

//get a handle to the device default font 

hFout - GetStockFont(DEVICE_DEF AULTt ONT); 

//use the device default font to fill a logical font structure 

GetObjed(hFoni,sizeoltLOGFONT),&lFont); 

//alter the font size and create a small font 

IFontlfHeight = -11; 

hSmallFont * CreateFontIndirect(&IFont); 

The global integer variable, text_color, is used in a switch to set the color of the 

text drawn to the screen. The blue, green, red, and black values are defined in the 

header, h file. The SetTextColor receives a handle to a device context and a RGB color 

value and sets the device context text color to the RGB value. 

//this switch sets the text color based on the value of the text color flag 

switch(text color) 

{ 

case blue: { SetTextColor(OutPaintDC,RGB(0,0,128)); break; ) 

case green: { SdTextColor(OutPaintDCJRGB(0,128,64)); break; ) 

case red: { SdTextCok>r(OutPaintDC ! RGB(255,0,0)); break; } 

case Made: { SdTextColor(OutPaintDC,RGB(0,0,0)); break; } 

> 

The OUTFTLE variable is a character array that is used with the Jopen function to 
open the appropriate output file. The content of the OUTFILE variable is determined by a 
switch that tests the output flag variable to determine which file is to be printed. 
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//this switch writes the appropriate fi'e name into the OUTFILE 


switch/output flag) 

{ 

case summary : 
case downstrcam_velori ties: 
case duct.^geometry: 
case abs_ruks_cak: 
case detailed 1: 
case detaikd2: 
case nonaxisymcir: 
case nonaxisymfor: 
case nonaxisymcmp: 
case nonaxisymhar: 
case pbdktq: 

} 


{ strcpy(OUTFILE,"suminaiy.out\0"); break;} 
{ strcpy/OUTFILE/fanis.outVO*); break;} 

{strcpy(OUTFILE, , ductgeoVO*); break;} 

{ strqjy(OUTFlLE, ,, stress.outV)"); break;} 

{ strcpy(OLnnLE,"detail 1 .out\0“); break;} 

{ strcpy(OUTFTLE,"detail2.outV)"); break;} 

{ strcpy(OUTFILE,’nonaxi.ciriO“); break;} 

{ strcpy(OUTFILE,*nonaxi.forV)"); break;} 

{ strcpy(OUTFILE,"nonaxi.cmp\0"); break;} 
{ strcpy(OUTFILE,*nonaxi.haAo"); break;} 

{ strcpy(OUTFILE, ,, pbdout.ktq\0"); break;} 


The appropriate output file is opened using the _lopen function and read using the 
lread function. The file is then closed using the Jclose function. 


//open, read into the buffer, and close the data file 
in = _lopen(OUTFILE, READ); 
num bytes= lread(in, buffer, max buf sz); 

Jclose/in); 

The small font is selected into the device context prior to painting the output. The 
vertical extents of the rectangle structure that will be used with the DrawText function to 
paint the output are adjust based on the position of the scroll bar and the height of a line of 
text in the Output Viewer window. 

//select the small font and save a handle to the original font 
hCMdFont = SelectFont(OutPaintDC.hSmallFont); 

//adjust the top and bottom of the temporary rectangle structure to account for the position of the vertical 
// scroll bar position 

recttop * rect.top - Scroll_Pos*LineHeight; 

reel.bottom = reel.bottom - Scroll_Pos*LineHeight; 


• • • 
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The next executable line of code uses the DrawText function to paint the output 
file onto the Output Viewer window. The DrawText function receives a handle to a 
device context, the address of the string to be drawn, the number of bytes to draw, the 
address of a rectangle structure that describes the region where the text is to be drawn, 
and flags that describe how the text is to be drawn. The function returns the height of the 
text that was drawn. This statement divides the return value by the height in pixels of a 
line of text to determine the total number of lines of text painted and assigns the value to 
the TotalLines variable. The flags used are described below: 

DT LEFT- causes the text to be left aligned. 

DT WORDBREAK- causes lines to be broken between words if a word would extend 
past the edge of the display rectangle 
DT_NOCLIP- draws the text without clipping 
DT NOPREFIX- turns off the processing of prefix characters 

//draw the text file in the region defined by iect and calculate the total number of lines of text to draw 

Total Lines=(int)(DrawText(OutPaintDC,buffer,num_bytes, &rect, 

DT_LEFTPT_WORDBREAKpT_NOCLIP|DT_NOPREFIX)/LineHeight); 

The scroll range is then set based on the total number of lines of text displayed in 
the Output Viewer window, using the SetScrollRange function. The SetScrollRange 
function receives a handle to the window associated with the scroll bar that is to have its 
range set, a scroll bar flag that specifies the bar to set, the minimum and maximum scroll 
bar settings in the range, and a redraw flag that specifies in this case that the scroll bar is 
to be redrawn. 

//set the range of the scroll bar to the total number of lines so the range covers the entire text region 
SetScrollRangefhWnd, SB VERT, 0, Total Lines, TRUE); 
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The original font is selected back into the device context, the memory used to 
store the text is freed, and the fonts created for this function are then destroyed. The paint 
process is then terminated. 

//select the original font bade into the device context 
SekctFont(OutPaintDC,h01dFont); 

//free the allocated memory 
free( buffer); 

//delete the fonts created for this function 

DelcteFont(hFont); 

DeleteFont(hSmallFont); 

> 

//close out the paint command 
EndPaintfhWnd, &ps); 

> 

C.4.6 The printout function. 

The printout function is used to draw text output files to the system printer. The 
function is nearly identical to the paintout function in section C.4.S above. The printout 
function receives the handle to the printer device context. The only other difference is that 
it does not use any of the variables associated with the scroll bar. The function is shown 
below. 

void printout(HDC OutPaintDC) 

{ 

* declare variables that are defined in the pU.c file and that * 

* will be used in this function * 

extern int output flag, text_color, 

* Variable declarations * 


ft 


I 




ft 


ft 


ft 


ft 


ft 


ft 
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RECT feet; 

HFONT hFont, 
bOWFoot; 

char OUTFILE[14]; 

char * buffer, 

ini numbytes; 

float width, 
height; 

HFTLE in; 


//rectangle structure for 
// defining the text region 

//font for text output 
//original font 

//a character string indicating 
// the output file 

//pointer to a character buffer 

//number of bytes read by lread 

//display size scaled to 640/480 
//used to scale the polar plots 

//file handle 


//allocate memory for reading the file into 

buffer = (char *) malloc((max_buf_sz)*sizeof (char)); 

//determine the width of the display in pixels and the height of the display in raster lines and cast 
//them as floats 


width = (float)GetDeviceCaps (OutPaintDC, HORZRES); 
height ■ (float )GetDeviceCaps (OutPaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width = height*(4.0/3.0); 

else 

height = width*(3.0/4.0); 

//initialize the rectangle for displaying the file 

recLleft « (intX20*width/640.0); 

rect right = (intX625*width/640.0); 

reettop a (intXH*height/480.0); 

rect bottom = (intX6000*height/480.0); 

//select the device default font and save a handle to the original font 

hFont - GctStockFont(DEVICE_DEFAULT_FONT); 

hOldFont * SelectFont(OutPaintDC, hFont); 

//this switch sets the text color based on the value of the text color flag 

switch(text_color) 


» 


ft 


ft 


ft 


ft 


ft 


ft 


ft 
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{ 


i 


case blue: {SetTextCok»r(OutPaintDC > RGB(0,0.128)); break;} 

case green: {SetTextColof<OutPaintDC,RGB{0,128,64)),break;) 

case red: {SetTextColor(CXjtPaintDC^GB(255,0,0)), break;} 

case Mack: {S«TextColor(C)utPaiiitDC,RGB(0,0,0)); break;} 

} . 

//this switch writes the appropriate file name into the OUTFTLE 


switcbfoutputflag) 

{ 

summary: 

case downstream_velorities: 
case duct^geometry: 
case atas_niles_calc: 
case detailed 1: 
case detaikri2: 
case nonaxisymcir 
case nonaxisymfor: 
case nonaxisymcmp: 
case non_axisym_har: 
case pbdktq: 

> 


{ stix^OUTFILE,’suminary.outVO'); break;) 
{ strepyCOUTFILE.'fitrds.outVO*); break;) 

{strcpy(OUTFILE,"duct.geo\0"), break;} 

{ strcpy(OUTFILE,*stress.outVO*); break;} 

{ strcpy(<XJTFILE, "detail 1 .outVO"): break;} 

{strcpy(OUTFILE,*detail2.out\D"); break;} 

{ strq>y(OUTFILE,"nonaxi.ciiV)*); break;} 

{strcpy(OUTFILE,"nonaxi,foi\0*); break;} 

{ strcpy(OUTFILE,"nonaxi.cmp\0"); break;} 
{ strcpy(OUTFILE,"nonaxi.hai\0"); break;} 

{ strcpy(OUTFILE,"pbdoutktq\0"); break;} 


//open, read into the buffer, and close the data file 
in ■ _lopen(OUTFILE, READ); 
num_bytcs= _lread(in, buffer, maxbufsz); 

_klose(in); 

//draw the text 

DrawTcxt(OutPaintDC,buffer,num_bytes,&rect, 

DT_LEFTpT_WORDBREAKpT_NOCLIP|DT_NOPREFLX); 

//free the allocated memory 

firee( buffer); 

-*« 

//select the original font bade into the device context and delete the font created for this function 


SelectFont(OutPaintDC, hOldFont); 


} 


DeleteFont(hFont), 


I 


i 


» 


i 
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C.4.7 The paint_graphs function. 

The paint_ J graphs function is used to draw the input and output blade grids 
wireframe diagrams, the B-spline control net wireframe, and hub and duct images to the 
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passed device context, PaintDC. This allows the function to draw on the screen as well as 
the printer. The function receives the handle to the monitor or printer device context, a 
point structure that defines the location on the display where the plot origin will be, a 
pointer to the FILE structure that contains information about the PBD output file that will 
be plotted, and an index that determines the color that is used to plot the data. 

The D7POENT structure is defined as a cartesian point in 7 space. It is defined 
external to the paint_graphs functions since it will be used in other functions used to read 
PBD output files and draw PBD output plots on the Plot Viewer window. It consists of 
seven floating point values organized in a structure. 

struct D7POINT { /*7-Dpt */ 
float x,y,z,r,u,v,w, 

} D7POINT; 

void paint_graphs(HDC PaintDC, POINT origin, FILE ‘plot, int color) 

{ 

* declare variables that are defined in the pll.c file and that * 

* will be used in this function * 

HMM*M(***M***«t«*«*«MMMM*M«*«m«M**««M*M*MMMM**MM/ 

extern int plotj>age; 

extern float sc?Je_factor, 

/******************************v*** 

* Variable declarations 

char bufferf 120]; 

int i=0, j, 

nextchar-1, 

points_per_line, 
lines, 
length; 

struct D7POINT * points; 


♦******♦♦♦**/ 

//character string for text output 

//loop counters 

//used for reading input file 

// character by character 

//dimensions of array of xyz 
// points describing the wireframes 
//length of text output strings 

//pointer to 7d point array used 
// for reading and storing 


I 
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// description of the wireframes 


4 

► 

4 


4 
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float width, height, 

XY, 

scale-15.0, 
axis "2.0; 

HPEN hPca(2], hOkffea; 
POINT originaxia; 
HFONT hFoot, hOidFoot; 


//display size scaled to 640/480 
//3d point converted to screen 
//coordinates 

//scale lactor to fit plot on screen 
//scale foctor for the axis plot 

//peas for drawing wireframes 

//origin for the axis plot 

//foots for writing text output 


After variable declarations are made, the function creates a blue and a green pen 
for drawing output and gets a handle to the device default font. The size of the display 
area is calculated. A scale to be used to plot the data is calculated based on user input 
provided with the PBD Plot Geometry dialog box. 

//create a blue and a green pen for drawing the control point grid and the velocity vectors 

hPen(0] - CreatePen(PS_SOLID, 1, RGB<0,0,253)); 

hPen(l] - CreatePen(PS_SOLID, 1, RGB<0,128,64)); 

//get a handle to the device default font 

hFoot - GetStockFoot(DEVICE_DEFAULT_FONT); 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width * (float)GetDeviceCaps (PaintDC, HORZRES); 
height - (floaQGetDeviceCaps (PaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

ifl(width/height)>(4.<V3.0)) 

width - height*/* 0/VO); 

else 

height-width*(3.0/4.0); 

//select the device default font and the pen indicated by the color index 
// pasaed in the function call into the device context and save handles to 
//the original font and pen 

hCXdFont - SdectFoot(PaintDC, hFoot); 
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hOidPen - ScksctPoi(P»iiUDC,hPen(c»Jofl); 

//adjust the icale factor by an amount determined by the user 
mlg m mfe f^ctot * nlti 

The (unction now reads in the data to be plotted. The output files written by the 

PBD FORTRAN executable are in a standard format for use by a graphics program. The 

first two lines are not used by this function and are therefore discarded. A while statement 

is used to read the data character by character using the getc function until a carriage 

return or linefeed statement is encountered. 

//read in the data to be plotted 

//scrap the first line 

while (nextchar! s 13&&nextchar!=10) 
nextehar » getc(plot); 
nextehar = 1; 

//scrap the second line 

while (nextchar!*13&Ancxtchar!=10) 
nextehar = getcfplot); 
nextehar =1; 

The function then employs a while statement to check for the end of the data file. 

If the end of the data file is not found, the function reads the next zone of the data file. 

This is done in order to allow the function to handle data files with multiple zones, such as 
an output blade grid file which will have a separate zone for each blade and an additional 
zone for the transition wake. 

//the purpose of this while statement is to allow the function to read and plot a series of wireframes from 
// the same file, as in the case of a pbdout obg file which contains zones for all of the blades as well as 
// the transition wake 

while((nextchar-getc(plot))! K E(V){ 

The next five lines of executable code search the next line in the data file for the 
secondsign. The function then reads the first dimension of the data array into the 
potnts_per_line variable. 
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//extract the lumber of poiatsjperjine and the number of lines 

//read the third line, looking for the first equal sign 

while (nextchar! «61) 

nextchar « getc(pkx); 

//continue reading the third line, looking for the second equal sign 

while (nextchar! >61) 

nwtr lu t m g£tc(p|ot); 

//read the points per line 

fscanfipiot, “Sd",Apoints_per_linc); 
nextchar-1; 

The third "=“ sign encountered keys the function to read the second dimension of the data 
array into the lines variable. The rest of the line is then discarded. 

//continue reading the third line, looking for the third equal sign 

while (nextchar!-61) 

nextchar = getc(plot); 

fecanfiplot,’V«d",Alincs); 

//scrap the rest of line 

while (nextchar!=13&Ancxtchar!=10) 
nextchar = gctc(plot); 

Memory is then allocated for storage of the file data in the points array using the 
malloc and sizeof functions. The data is read into the points array using two for loops. 
The points array, although it contains a two dimensional array, is accessed as a one 
dimensional array. Note that the index of the array is indicated as "i*points_per_line+j". 
This index refers to the jth column in the ith row, where the column and row indices run 
from zero to "lines-1" and zero to "points_per_iine-1" respectively. 

//allocate memory for storing the points that describe the wireframe 

points - (struct D7POINT *) malloc((Unes*points_per_Une)*sizeof (struct D7POINT)); 







//read and store the point data 


for (H); Mines; i++) { 

for (j—0; j<potnl*_per Iine; j++) { 

ftcaafl[plot,"%f%f%fSf%f%f%r. Apointsli*pouUs_per_Iinc+j].x, 

Jtpoints(i*poutfsj>er_linc+j]-y. &potnU( i *pouiU_per_line+j). z, 
Apoints(i*poutsj>erJine+jir, Apoints(i*pointe_per_line+jl.u, 
&points{i*poiiiis_per_line+ji-v. Apointili'poiitfijJerUne+jl.w); 

} 

) 

The rest of the line is then discarded character by character until a carriage return 

or linefeed is encountered in order to prepare the file so that the next zone may be read. 

//scrap the rest of line 

while (nextchar!=13&&nextchar!=10) 
nextchar = getc(plo(); 
nextchar - getc(plot); 

The text alignment for the device context is set to center adjusted and the plot 
label is drawn at the top of the page using the TextOut function. The label drawn is a 
function of the plot_page variable value since the paint jgraphs function is used for 
drawing the input blade grid and B-spline net as well as the output blade grid and 
transition wake. 

The stiien function is used to provide the length of the text to be drawn. The 
strlen function receives a string or the address of a string and returns the length of the 
string minus the null terminating character. 

//label the plot 

Se*TextAlign(PaintDC,TA_CENTER); 

//determine the label by testing the plot_page flag 

switch(piot_page) 

{ 

case 4:{ TextOut(PaintDC,(intK320*width/640.0), 
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(iotX 10*htight/480.0), "INPUT BLADE GRID AND B-SPLINE NETVO", 
ttrfcnC INPUT BLADE GRID AND B-SPLINE NETVO")); 

break; > 

case 5:{ TexK)ut(PaiiitDC,(iMX320SndUi/640.0), 

(inlX 10*height/480.0), "OUTPUT BLADE GRID AND CENTERBODYVO", 
rtrienCOUTPUT BLADE GRID AND CENTERBQDYVO")); 

break; > 

} 

The text alignment is restored to left adjusted and an origin is defined for use in 
drawing the xyz axis on the plot. 

SetTextAliga(PaiiitDC,TA_LEFT); 

//define the axis origin 

originaxis.x - (intX40*width/640.0); 

originaxis.y - (intX* t0*height/640.0); 

The wireframe diagram is then drawn using two sets of two for loops. The first set 
of two for loops is used to loop through the data array and draw lines connecting each 
point in succeeding rows. The second set of two loops connects each point in succeeding 
columns. 

The rotation_projection function receives floating point x, y, and z cartesian 
coordinates and pointers to the x and y coordinate variables, X and Y. The function 
rotates the point about the appropriate axis using the globally defined and user input pitch, 
roll, and yaw angles, and projects the point onto the z = 0 plane in order to prepare the 
three dimensional data for two dimensional plotting. The x and y values are assigned to 
the X and Y variables. This is done to allow the user to view the output data in any 
orientation. The rotation_projection function will be described in more detail below. 

The MoveTo function is used to change the pen location to a point corresponding 
to the first point in the next row or column without drawing a line. The LineTo calls are 
used to connect the subsequent points in the row or column. The x and y screen 
coordinate points are scaled by the user determined scale factor internal to the MoveTo 
and LineTo calls so the output may be viewed in any scale. 





H 


for (HX i<iaes; I++) { 


ratatiooj>n9ectX3o(po(nts(i*poutts_per_li]ici.x, points(i*points_pcr_Unc|.y, 
poiab(i*pouits_per_liiie].z, AX AY), 


MoveTo(PiintDC,(iiitX(origin.x+«c»le*(X))*width/640.0), 

(inlK(orifjn.y-*c*le*(Y))*heigl«/480.0)); 


for (j-1; j<potnttjper_liiie; j++){ 


roUtioo_pfX)jection(pouUs(i*pouUi_pCT_lint+j] x, points[i*points_pcr_line+j].y, 
poinU(i*poinUjw_line+jJ.z, AX AY); 


LineTo(PaiiitDC,(iiilX(origi]i.x+scale*(X))*width/640.0), 

(imX(origin.y-scak*(Y))*height/480.0)); 


for (j=0; j<points_per_line; j++) { 


n*atkm_projection(points(j ]. x, points[j].y, 
points(j].z, AX AY); 


• • 


MoveTo(PaimDC,(iiilX(origin.x+scalc*(X))*width/640.0), 

(intX(origin.y-scale*(Y))*height/480.0)); 


for (i»l; i<Iioes; i++) { 


rotatkm_pn>jectkm(points[i*points_per_Luie+j). x, 
points|i*points_pcr_line+j].y, 
points(i*points_pcr_line+j].z, AX AY); 


LincTo(PaintDC,(intX(origin.x+scaJc*P0)*widlh/640.0), 

(intX(origin.y-scale*(Y))*bcight/480.0)); 


The memory allocated to store the plot data is then freed using the free function. 
The original pen is selected back into the device context and the xyz axes are drawn, 
rotated through the same pitch, roll, and yaw angles as the wireframe diagram. 


//free the allocated memory 


free( points ); 

> 
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//select the original pea into the device context and label the (xjm) axes 


SefcctPen(PaintDC, hOidPea); 


//draw the xyz axes 

rotatioo_pngectioo(axis + 1.0,0.0,0.0, AX, AY); 


length » sprintf(buffer, V); 

TextOut(PaiotDC, (uUX(origm_axis.x+X)*width/640.0), 
(intX(origin_axis.y-Y)*hetght/480.0), 
huffier, length); 

rotatioo_prqjection(0.0, axis + 1.0,0.0, AX, AY); 

length * Sprintffbuflfer, "y*); 

TextOut/PaintDC, (intX(origin_axis.x+X)*width/640.0), 
(intX(origin_axis.y-Y)*height/480.0), 
buffer, length); 

rotation_pn>)ectioo(0.0,0.0, axis + 1.0, AX, AY); 

length » sprintf(buffer, V); 


TextOut(PaintDC, (mtX(origm_axis.x+X)*widlh/640.0), 
(intX(origin_axis.y-Y)*height/480.0), 
buffer, length); 

rotation_prqjection(axis, 0.0,0.0, AX, AY); 

MoveTo(PaintDC,(intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y)*height/480.0)); 

rotationjm>)ection(0.0, axis, 0.0, AX, AY); 

LineTo(PaintDC,(intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0)); 

rotatkm_projection(0.0,0.0, axis, AX, AY); 

MoveTo(PaintDC,(intX(origin_axis. x+X)*width/640.0), 
(intX(origin_axis.y-Y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y)*height/480.0)); 
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The original font is selected back into the device context and the pens and font 




created for tins function are deleted. 


//select the original foot back into die device context 


SdectFoatCPaintDC,hOidFont); 


//delete the pens and font created for this function 


DeleteOtyect(hPea{0]); 

DeleteObfect(hFen(l]); 


DeleteFont(hFont); 


The rotation_projection function receives an xyz point and pointers to two floating 
point X and Y values. The function rotates the xyz point through the user defined pitch, 
roll, and yaw angles, and projects it onto the Z = 0 plane in order to prepare it for plotting 
on the monitor or printer. The result is placed in X and Y variables. 


void roUtioa_projection(float x, float y, float z, float * X, float * Y ) 


I • 


extern float cos_roll; 
extern .float sin_roll; 
extern float co6_yaw, 
extern float sin_yaw, 
extern float cos_pitch; 
extern float sin_pitch; 


float dz = 10.0; 
float xa,ya,za; 


xa = cos_yaw * x - sin_yaw * z, 
za ■ sin_yaw * x + cos_yaw • z; 


♦X - cosroll * xa + sinroll * y. 


ya * cos roll * y - sin roll * xa; 


*Y - sin_pitch * za + cos_pitch * ya; 


•X«(dz*(*X)); 
♦Y * (dz * (*Y)); 
> 
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C.4.8 The paint_hub function. 


The paint_hub function receives the handle to a device context, a point on the 
screen to use as the plot origin, and a pointer to a FILE structure. It draws the centerbody 
described in the data file to the screen or the printer depending on the device context 
passed. 

void paint_hub(HDC PaintDC, POINT origin, FILE *plot) 

{ 


* declare variables that are defined in the pll.c file and that * 

* will be used in this function * 

extern 

float scalefactor, 


extern 

struct D7POINT { /* 7-D pt */ 



float x,y,z,r,u,v,w. 



} D7POINT; 


/*♦**********♦*****♦*♦*******♦♦****♦♦***♦♦*♦*****************♦****♦** 

* Variable declarations * 

****************************♦******♦***♦****«♦*♦***♦**************«**/ 

int 

U 

nextchar=l, 

//loop counters 

//used for reading input file 

// character by character 


points_per_liue, 

lines; 

//dimensions of array of xyz 
// points describing the hub 

struct 

D7POINT ‘points; 

//pointer to 7d point array used for 
//reading and storing description of 
//hub 

float 

width, height, 

X,Y, 

//display size scaled to 640/480 
//3d point converted to screen 
// coordinates 


scale=15.0; 

//scale factor to fit plot on screen 

/****************«*«************************************************* 

* declare structure variables * 
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HPEN hRcdPen, hOtdPcn; 


//pens for drawing hub 


The function creates a red pen for drawing the output. The size of the display area 
is calculated and a scale to be used to plot the data is calculated based on user input 
provided with the PBD Plot Geometry dialog box. 

* determine the size of the device context to be written to, this* 

* allows the function to be device independent * 

//create a red pen and store a handle to it 

hRedPen « CreatePen(PS_SOLID, 1, RGB(255,0,0)); 

//determine the width of the display in pixels and the height of the display in raster lines and cast 
// them as floats 

width = (float )GetDeviceCaps (PaintDC, HORZRES); 
height = (float)GelDeviceCaps (PaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

if((width/height)>(4.0/3.0)) 

width = height*(4.0/3.0); 
else 

height = width*(3.0/4.0); 

//select the red pen and save a handle to the original pen 
hOldPen = SelectPen(PaintDC,hRedPen); 

//adjust the scale factor by an amount determined by the user 
scale = scale_factor * scale; 

The number of lines of data and number of points per line is extracted as described 

in section C.4.7 above. 

//read in the data to be plotted 

//scrap the first line 

while (nextchar!=13&Anextchar!=10) 
nextchar = getc(plot); 
nextchar =1; 

//scrap the second line 
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while (nextchar!-13&&nextchar!-10) 
nextchar - getcfpkx); 
nextchar-1; 

//extract the number of points_per_line and the number of lines 

//read the third line, looking for the first equal sign 

while (nextcfaarl-fil) 

nextchar = getc(plot); 
nextchar-1; 

//continue reading the third line, looking for the first second equal sign 

while (nextchar!”61) 

nextchar - getc(plot); 

//read the points per line 

fscanf(plot,"%d",&points_per_line); 

nextchar-1; 

//continue reading the third line, looking for the first second equal sign 

while (nextchar!=61) 

nextchar = getc(plot); 

fscanf(plot,’%d",&lines); 

//scrap the rest of line 

while (nextchar!=13&&nextchar!=10) 
nextchar - getc(plot); 

Memory is allocated, the data file is read, and the wireframe diagram is drawn 
the same way as described in section C.4.7 above. 

//allocate memory for storing the points that describe the hub 

points - (struct D7POINT *) maUoc((lines*points_per_line)*sizeof (struct D7POINT)); 
//read and store the point data 

for (i=0; Mines; i++) { 

for (j=0; j<points_per_line; j++) { 

fscanl(plo<,“%f %f %f %f %f %f %f, &points(i*points_per_line+j].x, 

ApointsIi*points_per_line+j].y, &points[i*points_per_line+j).z, 
&points(i*points_per_line+j). r, &points[i*points_per_line+j].u. 
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&poinls(i*pouUs_per_line+jl.v, Apoints[i*points_per_line+j|.w); 


//draw the wireframe diagram 


for (H>; klines; i++) { 

rotatfoo jrojcction(poiiUs(i*points_per_linc].x, points[i*points_per_lme).y, 
points! i *points_pcrlinc]. z, &X, AY); 

MovtTo(PaintDC,(intX(origin.x+scak*(X))*wi(ith/640.0), 

(intX(origin.y-scak*(Y))*hcight/480.0)); 


for (p*l; j<points_pcr_linc; j++){ 
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rotation_projection(points(i* points_per_line+j].x, points[i*points_per_linc+j].y, 
points[i*points_per_liue+-j].z, AX, AY); 

LincTo(PaintDC,(intK(origm.x+scale*(X))*width/640.0), 

(intX(origin.y-scale*(Y))*beight/480.0)); 

} 

> 

for (j=0; j<pointsjperJinc; j++) { 

rotationjrojection(points[j].x, points[j].y, points[j].z, AX, AY); 

MovcTo(PaintDC,(intX(origin,x+scale*(X))*width/640.0), 

(intX(origin.y-scale*(Y))*height/480.0)); 

for (i=l; i<lines; i++) { 

rotation_projcctioD(points(i*points_pcr_Une+-jl.x, points[i*points_per_line+jJ.y, 
points(i*points_per_lwe+j].z, AX, AY); 

LineTo(PaintDC,(intX(origin.x+sca]c*(X))*width/640.0), 

(intX(origin.y-scalc*CY))*height/480.0)); 

> 

} 


The memory used to store the plot data is freed using the free function, the original 
pen is selected back into the device context, and the pen created for this function is 
deleted. 

//free the allocated memory 
free( points ); 


» 
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//select the original pot back into the device context 
SelectPen/PaintDC, hOidPea); 

//delete the pen created for this function 
DeletcObjcctfhRedPen); 

> 


C.4.9 The paintjpp function. 

The paintjgsp function draws the circulation contour plots described in the 

PBDOUT.GSP or PBDOUT.SOL files to the monitor or printer. The function receives a 

handle to the device context, the origin at which the plot is to be printed, and a pointer a 

FILE structure that contains information regarding the data file to be plotted. 

void paint_gsp(HDC PaintDC, POINT origin, FILE *plot) 

{ 

/**•*•*«••••••**••••*«••••****•••*•*•*••*•******•***•*•***••*•*•**••• 

* declare variables that are defined in the pll.c file and that * 

* will be used in this function * 


4 

extern struct 

D7POINT { f* 7-D pt */ 

I******************************/ 


float 

x,y,z,r,u,v,w. 


4 


} D7POINT; 



extern float 

scaleJactor, 



* Variable declarations 

* 

4 

char 

buffer! 120], //character string for text output 

title(81]” "BOUND CIRCULATION STRENGTHS"; //plot rifle 

4 

int 

i-O.j, 

nextchar-1. 

//loop counters 

//used for reading input file 

// character by character 

4 


pointsjxr_Iine, 

lines, 

length, 

id. 

//dimensions of array of xyz 
// points describing the wireframes 
//length of text output strings 
//index indicating color to paint 
// the contour plot polygon 
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ft 


4 

integer <tauB 0 r * 

//dummy integer for reading 

// data not used by this function 

4 


struct D7POINT *points; 

//pointer to 7d point array used 
// for reading and storing 
//the plot data 


4 

float width, height. 

//display size scaled to 640/480 

» 


scalep>130.0. 

//scale factor to fit plot on 
//screen 


4 

max_discrete “ *100.0, 
mindiscrete -100.0, 
max density • -100.0, 
min density - 100.0; 

//max and min values for the 
// bound vortex strength 

i 


HPEN hPea(6], 
hOWPen; 

//pens for drawing the plots 


4 

HBRUSH hBnish(6], 

hCHdBrush; 

//brushes for drawing the plots 

ft 


HFONT hFoot, 

bOldFont; 

//fonts for writing text output 


4 

POINT originaxis, 
origindis, 
originden, 
polyol; 

//origin for the axis plot 
//origin for the discrete plot 
//origin for the density plot 
//array of points that define 
// the polygons to be plotted 

ft 


• 1 

Origins for the discrete and density plots are calculated based on the origin passed 

with the function call. Sue pens and brushes are created for drawing the contour plots. 

^ The device default font is created and the size of the display is calculated. 

//define the origins of the discrete and the density plots based on the origin passed with the function call 


origin_dis.x * origin, x-240; 
origindis.y * origin.y; 


origin_deax - origin, x+80; 
origin_den.y - origin.y, 

//create brashes and peas used for drawing the contour plots 

hBrush[0] - CreateSolidBrush (RGB(2S5,0,0)); 
hBrushfl] - CreateSolidBnish (RGB(255,255,0)); 
hBrush[2] - CreateSolidBnish (RGB(0,255,0)); 
hBntsh{3]- CreateSolidBnish (RGB(0,225,255)); 
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hBfush(4] - CreateSolidBnish (RGB(0,0,255)); 
hBnnh(3] - CreateSolidBnish (RGB(255,0,255)); 

hPen[0) - CrcatcPen (PS SOLID, 1, RGB(235,0,0»; 
hPen(l) - CrcatcPen (PS SOLID, 1, RGB(255,255,0)); 
hPen[2] - CrcatcPen (PS SOLID, 1, RGB(0,255,0)>; 
hPcn[3] - CrcatcPen (PS SOLID. 1, RGB(0,225,253)); 
hPen[4] - CrcatcPen (PS.SOUD, 1. RGB(0.0,253)); 
hPen[5] - CrcatcPen (PS_SOLID, 1. RGB(233.0,253)); 

IIget a handle to the device default font 

hFont - GetStockFont(DEVICE_DEFAULT_FONT); 

//determine the width of the display in pixels and the height of the display in raster lines and cast them 
// as floats 

width = (AoaQGetDeviceCaps (PaintDC, HORZRES); 
height * (float)GetDeviceCaps (PaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

ifl(width/height)>(4.0/3.0)) 

width = beight*(4.0/3.0); 
else 

height = width*(3.0/4.0); 

//select the device default font and a new pen and brush and save handles to the original font, brush, 
//and pen 

hOldFont = SelectFont(PaintDC, hFont); 
hOldPen = SelectPen(PaintDC,hPen(OJ); 
hOldBrush = SeIectObject(PaintDC,hBrush(0]); 


The plots are labeled and the data is read in the way described in section C.4.7. 
//print the title and the plot labels 

SetTextAlign(PaintDC,TA_CENTER); 

TextOut(PaintDC,(intX320*width/640.0), (intX10*height/480.0), UUe, sulen(tiUe)), 

SetTextAlign(PaintDC,TA_LEFT), 

TextOut(PaintDC,(intX(ori gindis x+50)*width/640.0), 

(intX(origin__dis.y-180)*height/480.0), "Discrete\0", strlen("Discrete\0")); 

TextOut(PaintDC,(intX(origin_den.x+50)*width/640.0), 

(intX(origin_den.y-180)*height/480.0), "Vortex Sheet\0", strlen("Vortex Sheet\0")); 


» 


» 


ft 


ft 


ft 


ft 


ft ' 


ft 


ft 


ft 


ft 
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//read ia the data to be plotted 

I heap the first line 

while (nextehar!” 134Anextchar!-10) 
nextehar « getc(plot); 
nextehar ”1; 

//scrap the second line 

while (nextehar!” 13&Anextchar!” 10) 
nextehar - getc(plot); 
nextehar ”1; 

//extract the number of points_per_line and the number of lines 

//read the third line, looking for the first equal sign 

while (nextcharl-61) 

nextehar “ getc(plot); 
nextehar ”1; 

//continue reading the third line, looking for the first second equal sign 

while (nextchar!=61) 

nextehar * getc(plot); 

//read the points per line 

fecanf(pk)t,“%d" > &points_per_linc); 

nextchar=l; 

//continue reading the third line, looking for the first second equal sign 

while (nextehar! ”61) 

nextehar * gete(plot); 

fecanftplot,“%d",&lines); 

//scrap the rest of line 

while (nextchar!”13&&nextchar!=10) 
nextehar *■ getc(plot); 

//allocate memory for storing the points that describe the contour plots 

paints - (struct D7POINT * ) malloc((lines*points_per_line)*sizeof (struct D7POINT)); 
//read the point data 

for (H); Klines; i++) { 

for (jH);j<points_per_line;j++) { 


» 
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4 


4 
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The first data value on each data line of the file is discarded by reading it into the 
dummy variable. Note that only five values are provided on each line instead of the seven 
provided in the data files described previously. The maximum and minimum values of 
circulation for the discrete and density plots are calculated during the data reading 
process. 

//read the index into dummy, read the radius into x, the chord into y, Gdiscrete* 1000 into z, and 
// Gdensity*1000 into r 

fscanf(plot,*%d %f %f %f %f", Adummy, &points[i*points_pcr_linc+j].x, 
ftpoints(i*points_per_line+j].y, &points[i*points_pcr_line+j|.z, 
Apoints(i*points_per_Une+jl.r); 

//find the max and min values of the discrete and density values 

maxdiscretc - max(points(i*points_per_line+j].z,tnax_discretc); 

mindiscrcte “ min(pointsfi*points_per_line+j].z,min_discrete); 

maxdcnsity ** max(points{i*points_per_line+j].r,max_density); 

mindcnsity 31 min(points[i*points_per_line+j].r,min_density); 

> 

} 

The first step in drawing the contour plots is to loop through the data points. A 
weighted average circulation strength is calculated for each point using the adjacent 
points. The weighted average is cast as an integer index on-She same scale as the pens and 
brushes (0-6) and used to select the appropriate pen and brush. The vertices of a polygon 
are calculated using the coordinates of the adjacent points, and the Polygon function is 
used to draw the polygon. The Polygon function receives a handle to the device context, 
the address of an array with the vertices, and the number of points in the array. It causes a 
polygon to be draw with the pen and brush currently selected into the device context. 

//loop through the points 

for (H); i<Uues-l; i++) { 
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i; 

ft 
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ft 













for (j-1; j<points_per_line-l; j++) { 


the «" r iwt tK * r^yir" th « l4i « r "**’ pint hy ralnilating 

// hi avenge of the values of bound diculattea at the vertices 

id - (intX5.0^((points{i*pointi_per_line+j].z+ 

point«|(i+l)*point*_pcr_liiie+j].z+poinUl(i+ l)*points_pcr_Une+j+1 ).z+ 
po»nts(i*points_per_line+j+l|.zy4.0)-nun_discreie)/(niax_discrete-min_discrete)); 

//select foe appropriate brush and pea 


SeiectPea(PaintDC,hPen(id]); 

SekctObject(PsiiitDC,hBnish(idl); 


//assign xy values in screen coordinates to the vertices of the polygon 

poly[0].x * (intX(origin_dis.x+scale*points[i*points_perJine+jl.x)*width/640.0); 
poly[0].y » (intX(origin_<iis.y-scaie*points(i*points_pcrJjne+jJ.y)*hcight/480.0); 
poly(l].x ■ (intX(origm_dis.x+scale*points[i*points_pcr_line+j+ll.x)*width/640.0); 
potyjlj.y » (intX(origin_dis.y-scalc*poiiUs(i*points_per_line+j+l |.y)*height/480 0); 
poly(2].x * (intX(origm_dis.x+scale*points[(i+l)*points_per_line+j+l].x)*width/640 0); 
poty[2J.y « (intX(origin_dis.y-scate*points[(i+l)*points_perJine+j+l J.y)*hcight/480.0); 
poiy[3].x = (intX(origin_dis.x+scale*points((i+l)*points_per_line+j].x)*width/640.0); 
poty[3].y = (intX(origin_dis.y-scale*points[(i+l)*points_per_line+j].y)*height/480.0); 
poly[4].x ■ (intX(origin_dis.x+scale*pointsli*points_pcr_line+j].x)*width/640.0); 
poly[4].y = (intX(origin_dis.y-scale*points[i*points_per_line+j|iy)*hcight/480.0); 

//draw the polygon 

Po!ygon(PaintDC,poly,5); 


The process is repeated for the density plot. 

//calculate the color to paint the polygon on the density plot by calculating 
// an average of the values of bound circulation at the vertices 

id = (intX5.0*(((points(i*points_per_line+j].r+points[(i+l)*points_per_line+j].r+ 
points((i+l)*points_per_line+j+l}.r+points[i*points_per_linc+j+l).r)/4 0) 
-min_density)/(max_density-min_density)); 

// select the appropriate brush and pen 

SekctPen(PaintDC,hPen[id]); 

SelectObjectCPaintDC.hBrushlid]); 

//assign xy values in screen coordinates to the vertices of the polygon 

pofylOj.x = (intX(origin_den.x+scale*points[i*points_per_line+jl.x)*width/640.0), 
poty(0].y = (intX(origin_den.y-scak*points[i*points_per_line+j).y)*height/480.0); 
pdyflj.x * (intX(origin_den.x+scale*points[i*points_per_line+j+l].x)*width/640.0); 
pdy(lj.y * (intX(origin_den.y-scale*pointsli*points_per_line+J+ll.y)*height/480 0); 
poty[2].x ” (intX(origin_den.x+scale*points[(i+l)*points_perJine+j+l].x|*width/640.0); 







poly(2).y “ (iatX(origin_dcn.y-*calc*poiatt|(i+l)*pomts_pcr_Unc+j+lI.y)*hcight/480 0), 
pdyl3].x - (in»X(origin_deo.x+*cate*poiiHsl(i+i)*points_pcr_linc+j].x)*widlh/640.0); 
poiyf3).y “ (intX(origin_den.y-«c«k*poiiil*((t+l)*poiot3 _per_line+j).y)*height/480 0); 
poty[4).x “ (intX(origin_den. x+scak*pointt(i*poin&j>cr_line+j 1. x)*width/640.0), 
poly[4].y - (inlX(originjien.yHScale*potnts|i*pointsj>er_line+j].y)*height/480.0); 

//draw the polygon 

Polygon(PaintDC,poly,5); 


> 


} 


A legend is drawn by using the Rectangle function to draw a series of rectangles 
with all of the colors used in the plots. The maximum and minimum circulation values for 
the two plots are drawn to indicate the scale. 

//draw the plot legend 


for (i=0;i<6;i++) { 


//select each pen and brash in turn 

SdectObject(PaintDC,hBrash[il); 

SelectPen(PaintDC,hPen(i]); 

//draw a small rectangle for each color under each plot 

Rectangle (PaintDC,(intX(origin_dis.x+70+i* 10)*width/640.0), 
(intX(origindis.y+50)*height/480.0), 
(intX(origin_dis.x+70+(i+1 )* 10)*width/640.0), 
(intX(origin_dis.y+60)*height/480.0)); 

Rectangle (PaintDC,(intX(origin_den.x+70+i* 10)*width/640.0), 
(intX(origin_den.y+50)*height/480.0), 
(intX(origin_den.x+70+(i+1)* 10)*width/640.0), 
(intX(origin_den.y+60)*height/480.0)); 

> 

//label the legend with the max and min values 

length - sprintffbuffer, *%2. If %2. If, min discrete, maxdiscrcte); 

TextOut(PaintDC, (intX(origin_dis. x+60)* width/640.0), 

(intX(origin_dis.y+70)*height/480.0), buffer, length); 

length = sprintffbuffer, *342. If %2.1f, mindensity, max_density); 

TextOut(PaintDC, (intX(origin_den.x+60)*width/640.0), 
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(idX(origin_den.y+70)*heighl/480.0), buffer, length); 


« 


* 


//select the original pea back into the device context 
SdectPea (PaintDC.hOidPcn); 


« 


« 


« 


« 


4 


« 


An axis is drawn to indicate the radial and chordwise directions on the plots, 
//define the axis origin 


origia_axis.x * (intX30*width/640.0); 
originaxisy - (intX480*height/640.0); 


//label the axes 

length * sprintffbuffer, "Radius”); 

TextOut(PaintDC, (intX(origin_axis.x+45)*width/640.0), 
(intX(origin_axis.y)*height/480.0) t buffer, length); 


length ” sprintffbuffer, "Chord"); 

TextOut(PaintDC, (intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y-45)* height/480.0), buffer, length); 


//draw the axes 

MoveTo(PaintDC,(intX(origin_axis.x+30)*width/640.0), 

(intX(origin_axis.y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y-30)*height/480.0)); 

//select the original font and brush bade into the device context 

SelectFont(PaintDC,hOldFont); 

Select0bject(PaintDC,h01dBnish); 


i 
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The font, brushes, and pens created for this function are deleted, 
//delete the font, brushes, and pens created for this function 
DeleteFontfhFont); 
for(i“0;i<6;i++){ 

DeleteObject(hPen[i]); 
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DdetcObjoct(hBntfh(i]); 



C.4.10 The palat_vcp function. 

The peint vqj function draws the fluid velocities at the blade control points. The 
function receives a handle to the device context, a point indicating the origin at which the 
plot is to be drawn, and a pointer to the FILE structure that describes the file used to 
provide the plot data. 

void paint vcp(HDC PaintDC, POINT origin, FILE *plot) 

< 


* declare variables that are defined in the pil.c file and that * 

• will be used in this function * 

extern float 

scaleJactor, 

extern struct 

D7POINT { I* 7-Dpt*/ 

float 

x,y,z,r,u,v,w. 


} D7POINT; 

/*•*********•*«*•**•« 
* Variable declarations 

* 


struct 

D7POINT * points; 

//pointer to 7d point array used 
// for reading and storing 
// description of hub 

float 

width, height. 

//display size scaled to 640/480 


XY. 

//3d point converted to screen 
//coordinates 


scale-15.0, 

//scale factor to fit plot on screen 


velocityscale-0.05. 

//scale factor for velocity vectors 


axis - 2.0; 

//scale factor for the axis plot 

int 

Lj, 

//loop counters 


nextchar-1. 

//used for reading input file 
// character by character 


points_perline, 

//dimensions of array of xyz 


lines. 

// points describing (he hub 
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length, 


//length of text output strings 


bufiertl20]; 


//character string for text output 


HPEN hPea(2]. bOidPea; 


//pens for drawing the plots 


POINT origin.axis; 


//origin for drawing the axis plot 


HFONT hFont, hOldFoat; 


//fonts for drawing the text output 


After variable declarations are made, the function creates a blue and a green pen 
for drawing output and gets a handle to the device default font. The size of the display 
area is calculated. A scale to be used to plot the data is calculated based on user input 


provided with the PBD Plot Geometry dialog box. 


//create a blue and a green pen for drawing the control point grid and the velocity vectors 


hPen(0] - CrcatePcn(PS_SOLID, 1, RGB(0,0,255)); 
hPen[l] - CrcatePen(PS_SOLID, 1, RGB(0,128,64)); 


//get a handle to the device default font 


hFont = GetStockFont(DEVICEDEFAULT_FONT); 


//determine the width of the display in pixels and the height of the display in raster lines and cast 
// them as floats 


width = (float)GetDeviceCaps (PaintDC, HORZRES); 
height = (float)GetDeviceCaps (PaintDC, VERTRES); 


//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 


if((width/height)>(4.0/3.0)) 

width = height*(4.0/3.0); 
else 

height-width*(3.0/4.0); 


//select the device default font and the blue pen into the device context and save handles to the original 
font 

//and pen 


hOldFont« SelectFont(PaintDC, hFont); 


hOidPen = SelcctPen(PaintDC,hPen[0]); 


//adjust the scale factor by an amount determined by the user 


scale = scale factor * scale; 


I < 
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The data is feed in the seme manner as described in section C.4.7 above. 


//read in the data to be plotted 

//acnp the first line 

while (acKteharl-13dtJtnemcharM0) 
aextchar m golc(plot); 
nextchar * 1; 

//scrap the second line 

while (nextcharl-13AAnextchar!-10) 
aext cha r m gctc(plot); 
aextchar -1; 

//extract the aundwr of points jw_line and the number of lines 

//read the third line, looking for the first equal sign 

while (nextchar!^ 1) 

nextchar - getc(plot); 
aextchar «1; 

//continue reading the third line, looking for the second equal sign 

while (nextchar!-61) 

nextchar - gctc(plot); 

//read the points per line 

£scanf(plot,' , %d a ,Apoints_per_line); 

nextchar-1; 

//continue reading the third line, looking for the third equal sign 

while (nextchar!«61) 

nextchar ■ getc(plot); 

fscanf(plot,“%d" > &lines); 

//scrap the rest of line 

while (nextchar1 m 13ft£nextcharl*10) 
nextchar ■> getc(piot); 

//allocate memory for storing the points that describe the control points and 
// the velocity vector associated with each control point 

points * (struct D7POINT * ) malloc((lines*pointt_per_line)*sizeof (struct D7POINT)); 
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//read and Hon the point data 


l 


t 


for (W); i<Unes;»++) { 

for (j-O; j<points_per_line; j++) { 

focanitpiot.-Sf %t%t Kf%f%f%f, *poim8(i*points_per_Une+j].x. 

Apoints(i*pouit3_per_line+j].y, Apoints{i*points_per_line+j].z, 
Apoints{i*pouitt_per_Line+j].r, Apoints| i *points_per_line+j ]. u, 
&jxxirts(i*poii»U_pcr_Iinc+j].v, Apoin ts[ i * points_per_line+j J. w); 

} 

} 

The plot is labeled, the axis origin is calculated, and a wireframe diagram of the blade control 
points is drawn in the same manner as is described in section C.4.7 above. 

//label the plot 

SetTextAlign(PaintDC,TA_CENTER); 

TextOut(PaintDC,(intX320*width/640.0), 

(intX 10*hcight/480.0), "VELOCITY AT CONTROL POINTSVO", 
strlcn(" VELOCITY AT CONTROL POINTSVO")); 

SetTextAlign(PaintbC,TA_LEFT); 

//define the axis origin 

originaxisx * (intX40*width/640.0); 
originaxisy • (intX410*height/640.0); 

//draw wireframe diagram 

for (i*0; i<lines; i++) { 

rotationjprojection(points[i*points_per_Une].x, points[i*points_per_Iine].y, 
points[i*points_per_line].z, AX, AY); 

MoveTo(PaintDC,(intX(origin.x-fsca]e*(X))*width/640.0), 

(intX(origin.y-scak*(Y))*height/480.0)); 
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for (f-1; j<points_per_line; j++){ 

rotAk»_pcqjectioo(points{i*potnts_per_line+j].x, points[i*points_per_line+j].y, 
points[i*points_per_line+j].z, AX, AY); 

LineTo(PaintDC,(intX(origin.x+scale*(X))Sridth/640.0), 

(intX(origin.y-scale*(Y))*height/480.0)); 

} 
















• t 




} 

for Q-O; j<poiati_per_liae; j++) { 

rotatioej>n 9 ectio(i(po(ats(j].x, points{j].y, 
poi«s0J.z,AX,AY); 

MoveTo(PiintfX^(iatX(orifia.x+*caie*(X))*widlh/640.0), 

(iBtX(ofipa.y«ale*(Y))*hei*hl/4«0.0)); 

for (i-1; Mine*;»++) { 

rotatioo_pn 9 ectioQ 0 wints{i*poii>ts_per_line+j].x, 
points|i*points_per_linc+j]y, 

points(i*pointsjxr_line+j]z, AX, AY); 

LineTo(P»urtDC,(intX(ongm.x+scaIc*(X))*wdlh/640.0), 

(intX(origin.y-scak*CY))*height/480.0)); 

> 

) 

//select the green pen and draw the velocities 
SelectPen(PaintDC, hPen[l]); 

After the green pen is selected, the velocity vectors are drawn. The vectors are 
drawn with the tails at the control points. They are drawn using the LineTo function to a 
point displaced from the control points by the velocity components scaled by a velocity 
scale factor. The rotation_projection function is used to convert the three dimensional 
points to two dimensionsal points for plotting on the monitor or printer, 
for (t-K); i<lines; i++) { 


for 0 - 0 ; j<points_per_line; j++){ 

rototionjHt(jection(points[i*points_pcr_linc+j].x, 

pointsji*poinls_per_line+j].y, 

points[i*points_pcr_line+jl.z, AX, AY); 

MoveTo(PaiiitDC I (intX(ongin.x+scak*(X))*wklth/640.0), 

(intX(origin.y-scalc*(Y))*beight/480.0)); 

ro<ation_prqjcctioo(poiirts|i*points_pcr_line+j].x+ 

vdocity_scale*points(i*pointsj)cr_line+jJ.u. 
points|i*pointsj 5 cr_lint+J].y+vclocity_scalc* 
points(i*points_pcr_line+ji.v, 
point*Ji*points_per_line+j].z+vek)city_scale* 
pointsli*pointt_pcr_line+jj.w, AX, AY); 


387 



i 


UneTo(PaiotDC,(intX(origiB.x+scaie*(X))*width/640.0), 

(iatX(origin.y'«cale*(Y))*heigbt/480.0)); 

} 

> 


An xyz axis is drawn, rotated through the same pitch, roll and yaw angles as the 
velocity (dot. 

//Meet die original pea into the device context, draw and label the (x^.z) axes 
SdectPen(PaintDC, bOidPeo); 
rotatkm_prqjectk>n(axis +1.0,0.0,0.0, AX, AY); 


length - sprintffbuffer, *x"); 


TextOut(PaintDC, (intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0) > buffer, length); 

rotatk»_projection(0.0, axis + 1.0,0.0, AX, AY); 

length - sprintffbuffer, “y"); 

TextOut(PaintDC, (intX(origin_axis.x+X)*width/640.0). 

(intX(origin_axis.y-Y)*height/480.0), buffer, lengt’ 

rotation_projectk»(0-0,0.0, axis +1.0, AX, AY); 


length “ sprintffbufifer, ”z"); 


TextOutCPaintDC, (intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0), buffer, length); 

rotationjrojection(axis, 0.0,0.0, AX, AY); 

MoveTo(PaintDC,(udX(origm_axis.x+X) •width/640.0), 
(intX(origin_axis.y-Y)*height/480.0)); 

LineTo(PaintDC,(mtX(ofigin axis.x)*width/640.0), 
(imX(origin_axu.y)*height/480.0)); 

rotatkn_prpjection(0.0, axis, 0.0, AX, AY); 

LineTo(PaiidDC,(intX(origin_axis.x+X)*width/640.0), 

(i«X(origin_axis.y-Y)*hdght/480.0)); 

rotationj>rojection(0.0,0.0, axis, AX, AY); 

MoveTo(PaintDC,(intX(origin axis.x+X)*wktth/640.0), 
(intX(origin_axis.y-Y)*height/4S0.0)); 
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LineTo(PaintDC,(intX(orifin axk.x)*width«40.0). 

(intX(origin_axis.y)*height/480.0)); 

//select the original foot back into the device context 

SckctFootCPaultDC.hOtdFoat); 

The pens and font created for this function are deleted and the allocated 

memory is freed using the free function. 

//delete the peas and foot crea ted for this function 

DdetoOtyectChPeafOD; 

DdeteObject(hPen( 1 ]); 

DeleteFont(hFont); 

//free the allocated memory 

fiee( points ); 

} 

C.4.1I The paint_cmv function. 

The paintcmv function draws a plot of circumferential mean blade velocity plot to 

the passed screen or the printer. The function receives a handle to the device context, an 

origin for the plot, and a pointer to the FILE structure containing the data. The function 

works in the same way as the paint vcp function except that a wireframe is not drawn. 

void paint cmv(HDC PaintDC, POINT origin, FILE *pkX) 

{ 


* declare variables that arc defined in the pil.c file and that * 

* will be used in this function * 

extern 

float 

scalejGtetor, 

extern 

struct 

D7POINT { /* 7-D pt ♦/ 


float 

x,y,z,r,u,v,w; 

/**,««***'•*•< 

>***•••< 

} D7POINT; 






(tract D7P0INTpoint; 


width, height, 

X.Y, 


//pointer to 7d point array teed 
// for reading and storing 
//description of hub 

//display size scaled to 640/480 
//3d point converted to scree n 
// coordinates 


sale-13.0, 
velocity_acak-0.2, 

aids - 2.0; 

W), 

nextchai-1, 

num_points, 

length; 


//scale foctor to fit plot on screen 
//scale foctor for velocity vectors 
//scale foctor for the axis plot 

//loop counters 
//used for reading input file 
// character by character 
//total number of points to plot 
//length of text output strings 


char bufier{120], //character string for text output 

titlcfl* //plot title 

"CIRCUMFERENTIAL MEAN BLADE VELOCITYV)"; 


HPEN hPen, hOldPen; 

POINT origin axis, 
plot_point[2]; 


HFONT hFont, hOidFont; 

//create a green pen for drawing the velocity vectors 

hPen - CreateFen(PS_SOLID, 1, RGBfO, 128,64)); 
//get a handle to the device defoult font 

hFont - GetStockFont(DEVICE_DEFAULT_FONT); 


//determine the width of the display in pixels and the height of the display 
//in raster lines and cast them as floats 


//pens for drawing the plots 

//origin for drawing the axis plot 
//array of points for plotting the 
// velocity vectors 

//fonts for drawing the text output 


width - (flonQGctDevtceCaps (PaintDC, HORZRES); 
height - (float)GetDevice€apc (PaintDC, VERTRES); 

//since the normal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

ifi(width/height)>(4.0/3.0)) 

width «height*(4.0/3.0); 
else 

height-width*(3.0/4.0); 
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//••fact tike devioe detail font and the greea pea into the device context and 
// save haadks lo the original foot and pea 

hfOtdFont - Setoctftat(PaintDC hFoot); 


hCMdPen “ SelectPen/PaintDC.hPen); 


//adjust the frctor by an amount determined by the user 
•calc a ftckv * scale; 

//draw tlie title to the device context 

SetTextAlign(PaintDC,TACENTER); 

TextOut(PamtIK,(intX320n«dth/640.0), (intX10*hright/480.0),title, strlen(title)); 

SetTextAlign(PaintDC,TA_LEFT); 

//read in the data to be plotted 

//scrap the first line 

while (nextehar! 5 * 13&&nextchar!=10) 
nextehar - getc(pkx); 
nextehar * 1; 

//scrap the second line 

while (nextchar!”13&&nextchar!=10) 
nextehar = getc(plot); 
nextehar-1; 

//extract the total number of points 

//read the third line, looking for the first equal sign 

while (nextchar!~6I) 

nextehar - getc(plot); 
nextehar -1; 

//continue reading the third line, looking for the second equal sign 

while (nextchar!-61) 

nextehar - getc(plot); 

//read the number of points 

&canf(plot,*%d*,*nuin_points); 

nextchar-1; 

//scrap the rest of line 
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white (nextchar1-13AAaextchaii«10) 
nextchar - getc(piot); 

//read sad plot the velocity vector data, one data point at a time 
//loop through all of the data points 

for (i-O; Katun_pointr, I++) { 

//read the data into a 7d point 

fscanfl(plot,*%f%f%f %f %f %f \ ApoinLx, ApoinLy, Apointz, Apointu, Apoint.v, & point.w); 

//calculate the screen coordinates of the root of the velocity vector 

rotationjprojectioo(point. x, pointy, point, z, AX, AY); 

//assign the X and Y screen coordinates to the first point of the plot_point array 

pkX_point(0].x - (intX(origin.x+scale*(X))*width/640.0); 
pkrtj»int[0].y «(intX(origin.y-scale*(Y))*height/480.0); 

//calculate the screen coordinates of the tip of the velocity vector 

rotation_projection(poinLx+velocity_scale*pointu, pointy+velocity_scale*point.v, 
point. z+velocityscale*point.w, AX, AY); 

//assign the X and Y screen coordinates to the first point of the plot_point array 

plot_pointJl].x - (intX(origin.x+scale*(X))*width/640.0); 
pfot_pointllj.y ■ (intX(origin.y-scale*(Y))*height/480.0); 

//plot the vector as a polyline 

Polyline(PaintDC,plot_point,2); 

> 

//select the original pen into the device context, draw and label the (x,y,z) axes 

SelectPenfPaintDC, hOldPen); 

//define the axis origin 

origin_axis.x * (intX40*width/640.0); 
origin_axis.y - (intX410*height/640.0); 

rotation_projection(axis + 1.0,0.0,0.0, AX, AY); 

length * sprintfibuffer, "x"), 

TextOut(PaintDC, (intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0), buffer, length); 
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rotationjxo»ection(0.0, axis + 1.0,0.0, AX, AY); 
length ■ sp rin t ff b u ffer , *y*); 

TextOutfPaiatDC, (intX(origu_axis.)rt-X)*width«40.0X 

(iatX(origio_axis.y-Y)*height/4*0.0), buffer, length); 

rotation prpjectioo(0.0,0.0, axis + 1.0, AX, AY); 


length - ^xiodtbuffer, V); 


TextOutfPaintDC, (intX(originjuis.x+X)Sridth/640.0), 

(inlX(origin_axis.y-Y)*height/4g0.0), buffer, length); 

rotaiioa_prq)ection(axis, 0.0,0.0, AX, AY); 

MoveTo(P8iiUDC,(intX(c'rigin_nxi*. x+X) *width/640.0), 
(intX(origin_axis.y-Y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*width/640 0). 
(intX(ongin_axis.y)*heighC/480.0)); 

rotation_pro)ection(0.0, axis, 0.0, AX, AY); 

LineTo(PaintDC,(intX(origjn_axis. x+X)*width/640.0), 
(intX(origin_axis.y-Y)*height/480.0)); 

rotationjwqjectioo(0.0,0.0, axis, AX, AY); 

MoveTo(PaintDC,(intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y)*hcight/480.0»; 

//select the original font bade into the device context 

SeIectFont(PaintDC,hOidPont); 

//delete the pen and foot created for this function 

DeleleObiect(faPen); 

DekteFont(hFont); 

} 

C.4.12 The paint_rdc function. 

The paintjric function draws a plot of circulation vs. radial position using data from a 
PBDOUT.RDC or FBDOUT.SGR file. The function receives a handle to the device context and a pointer 
to the FILE structure that contains information about the data file. 
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void paint rdo(HDC PaiatDC, FILE *ptot) 

( 


/*•**••*••***«•••****•** 
* Variable declarations 


****••*•»*«' 

char 

bufferllZO], 

//character string for text output 


titkfSl]; 

//title of the plot 

iat 

i-0. 

//loop counter 


numjpoints. 

//# of points to be plotted 


decimaljrlaces “ 2, 

//indicator of decimal places 
// to print in y-axis labels 


nextchar-1. 

//used for reading input file 
// character by character 


shift-3, 

//number of pixels to shift 
//y-axis labels 


length. 

//length of text output strings 


del x-30. 

//x and y spacing for graph in 


del_y-20; 

//pixels 

float 

width, height. 

//display size scaled to 640/480 


delta_G, 

//difference between max and min 

// G 


max_G“-100.0, 
min_G”100.0, 

//max and min circulation 


maxr^O.O; 

//max radius 

float 

•r. 

//pointers to float arrays for 


* G; 

// radius and circulation 

declare structure variables 

* 

HPEN 

hPlotPen, 

hThickPgn, 

hThinPen, 

hOldPen; 

//pens for drawing the graph 

HFONT hFont, 

//fonts for drawing the text 


hSmallFont, 

hOWFont; 

//output 


LOGFONT lFont; //logical font structure for 

// creating fonts 

HBRUSH hBrush, //brushes for drawing the graph 

hOidBrush; 


POINT origin-{ 170,300}; 


//origin of the plot in screen 
//coordinates 







POINT * point; 


//pointer to an array of points 


/a******************************************************************* 

* determine the size of the device context to be written to. this* 

* allows the ftmction to be device i ndependent * 

•*•***•♦•*••*•**••*••*•*•#*•••*••****•******•*•*♦*•••*•*••••••******•/ 


The function creates a blue pen for drawing circulation versus radial position, a 
thin black pen for drawing horizontal and vertical grid lines, and a thick black pen for 
drawing a frame around the plot. The function also creates a hollow brush, and small and 
normal sized fonts. The display size is calculated. 

//create a blue pen for (dotting G vs. r and a thin and a thick black pen for drawing the graph axes 

hPlotPen - CreatePen(PS_SOUD, 1, RGB(0,0,255)); 
hThickPen * CreatePen(PS_SOLID, 2, RGB(0,0,0)); 
kThinPen m CreatePen(PS_SOLID, 1, RGB(0,0,0)); 

//create a hollow brush 

hBmsh - GetStockBrush(HOLLOW_BRUSH); 

//get a handle to the device default font 

hFont - GctStockFont(DEVICE_DEFAULT_FONT); 

//fill a logical font structure using the device default font 
GctObject(hFont,sizeofi[LOGFONT),&lFont); 

//adjust the font size and create a small font for labeling the axes 
lFont.lfHeight ■ >10; 

hSmallFont ■ CreatcFontlndirect(AlFont); 

//select the hollow brush, default font, and thick blade pen into the device 
// context and save handles to the original brush, font, and pen 

hOMBrush - SdectObject(PaintDC, hBmsh); 

hCHdFont * SekctFont(PaintDC, hFont); 

bOldPen * SelectPen(PaintDC, hThickPen); 

//determine the width of the display in pixels and the height of the display 
// in raster lines and cast them as floats 

width ** (float )GetDeviceCaps (PaintDC, HORZRES); 








height - (OoaOGetDcviceCape (PeintDC, VERTRES); 

//since the nonaal display aspect ratio is 4 to 3, ensure that the graphical 
// output made by the program is in that aspect ratio 

ifl[(width/height)>(4.(V3.0)) 

width - httght*(4.(V3.0); 
else 

height - width*(3.0/4.0); 

The first line of the data file is read character by character in order to locate and read the plot 

title. 

//read in the data to be plotted 

//read the first line and find the title 

while (nextchar!-13&A nextchar! 3 * 10£&ncxtchar!=34) 
nextchar - getc(plot); 
nextchar * getc(pk*); 

while (nextchar!=34) { 

titlc[i]=nextchar, 

i++; 

nextchar = getc(plot); 

} 

titleli]=M)'; 

//scrap the rest of the first line 

while (nextchar!=13&&nextchar!=10) 
nextchar = getc(plot); 
nextchar-1; 


The second line of the data file is discarded and the third line is read character by 

character to find the number of data points in the file. 

//scrap the second line 

while (nextcharl=13&Anextchar!=10) 
nextchar = getc(plot); 
nextchar -1; 

//extract the number of points 

//read the third line, looking for the equal sign 

while (nextchar! =61) 

nextchar ** getc(plot); 
nextchar *1; 
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//continue leading the third line, looking for the second equal sign 


while (nextchar!-61) 

nextchar - getc(plot); 

//read the number of points 

ficanl(plot, a, Sd' , ,ftnum_points); 

nextchar*!; 

//scrap the rest of line 

while (nextcharl-13&&nextcharl-10) 
nextchar - getc(plot); 

Memory is allocated for the radius and circulation data and for an array of POINT 
structures that will be used to plot the graph. 

//allocate memory for the radius, circulation, and point vectors 
r = (float * ) malloc((num_points)*sizeof (float)); 

G = (float *) malloc((nuni_points)*sizeof (float)); 
point - (POINT *) malloc((num_points)*sizeof ( POINT)); 

The data is read using a for loop. The maximum values of circulation and radius 

and the minimum value of circulation are determined using the same for loop 

//read the point data and check for the maximum and minimum values of G and the maximum value of r 

for (i=0; i<num_points; i++) { 

fscanftplot,"%f %f ", &rfi], &G[i]); 
maxG = max(max_G,G[iJ); 
min_G * min(min_G,G[i]); 
max r- max(max r.rfij); 

> 

The graph and the horizontal and vertical axes are labeled. A frame is drawn around the graph 
with the thick pen using the Rectangle function. 

//print the title and label the graph 

SetTextAlign(PaintDC.TA_CENTER); 

TcxtOut(PaintDC,(intX320*width/640.0), (intX10*height/4&0.0),title, strlen(title)); 
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SetTextAlign(P*intDC,T ALEFT); 

TexK>ut(PiinlDC,(intX(ori*in.x+10*dcl x+30)*widlh/640.0), 
(in!X(origin.y)*hdght/480.0), , r/R\D*,strlen("r/R\0")); 

TcxtOut(PiintDC,(intX(origm.x-60)*width/640.0), 

(intX(origin.y-6*del_y)*height/480.0), ,, CN)\ stricnCGV)")); 

//draw the outline of the graph 

Rectangle(PaintDC, (intX(origin.x)*width/640.0), (intX(origin.y)*height/480.0), 

(intX(origin.x+10*dd_x)*width/640.0), (intX(origiii.y-10*del_y)*beight/480.0)); 

The horizontal and vertical grid lines are drawn using a for loop and a series of 
Rectangle function calls. 

//select the thin pen and draw the horizontal and vertical lines on the graph as a series of rectangles 
SelcctPen{PaintDC,hThinPen); 
for(i=l;i<10;i++) { 

Rectangle(PaintDC, (intX(origin.x)*width/640.0), (intX(origin.y)*height/480.0), 
(in!X(origin.x+i*del x)* width/640.0), (int)((origin.y- 

10*del_y)*height/480.0»; 

RectanglefPaiatDC, 

(intX(origin.x)*width/640.0>, (intX(origin.y)*height/480.0), 
(intX(origin.x+10*del_x)*width/640.0i, (intX(origin.y- 

i*del_y)*height/480.0)); 

> 

The x axis is labeled using the small font. The maximum and minimum values for 
the graph are calculated and adjusted. The number of decimal places to be used in the y 
axis labels is then determined. 

//select the small font and label the x-axis of the plot 
SekctFont(PaintDC, hSmallFont); 
for(i-0;i<ll;i++){ 

length = sprintf(buffer, "%2. lF,(i*max_r)/10.0); 

TextOut(PaintDC, (intX(origin.x-5+i*del_x)*width/640.0), 
(intX(origin.y+10)*height/480.0X buffer, length); 

} 
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//if the nd—a value is greater dam zero, use lop to cetsbl i s h the maximum value as a round number 
// slightly higher than dm maximum value, otherwise set die maximum value to 0.0 

if(inax_G >- del) 

max G-pow(10.0Jloor(logl0(max G)))* 

(1.0+floor(max_G/(pow< 10.0,floor(log 10(max_G)))))); 

else if(max_G <■ -del) 
max_G - 0.0; 

//if the minimum value is less than zero, use logs to establish the minimum value as a round number 
// slightly lower than the minimum value, otherwise set the minimum value to 0.0 

if(min_G <“ -del) 

min_G ” -(pow( 10.0,floor(log 10(fabs(min_G))))* 

(1.0+fioor(fabs(min_G)/(pow( 10.0,floor(log 10(£abs(min_G)))))))); 

else il(min_G >** 0) 

min_G ■ 0.0; 

//if the maximum and minimum values are very close together, spread them apart slightly 
if(max_G - min_G<del) 

{ maxG = max_G + 0.1; 

if((min_G - 0.1)> 0.0) 

min_G = min_G - 0.1; 

> 

//find the difference between the maximum and minimum values 
delta_G = max_G • min_G; 
if(fabs(inaxG)>del) 

decimal_places " min(floor(log 10(fabs(max_G))),derimal_places); 
if(iabs(min_G)>del) 

dedmal_places * nun(fkx>r(loglO(fabs(min_G))),decimal_places); 

//label the y-axis based on the value of the decimal_places indicator 

switch(decunal_places){ 

case 2: 

{ 
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fcr(i-0;Kll,l++){ 


length * H*iat*buflfer, *S<r,(intX«ax_G-((i*Jeha_GyiO.O))); 

TextOut(PiintDC,(intX(orifUi.x+ hift*4-40)*width/640.0), 

(intX(origin.y-3+(i- 10)*dd_y)*heighJ/4S0.0), buffer, length); 

> 

break;} 

care 1: 

{ 

Mi-0;t<ii;«++){ 

length • sprintf(buffer, *%5.0T,max_G-((i*delUi_G)/10.0)); 

TextOut(PaintDC,(intX(origin.x+ 

shift*3-40)*width/640.0), 

(intX(origin.y-3+(i-10)*del_y)*height/480.0), buffer, length); 

} 

break;} 

caseO: 

{ 

for(i=0;i<l l;i++){ 

length - sprintf(buffer, "%5.1f , ,max_G-((i*delta_GyiO.O)); 

TextOut(PaintDC,(intX(origin.x+shift*3-40)*wi<lth/640.0), 

(intX(origin.y-3-Ki-10)*del_y)*height/4«0.0), buffer, length); 

} 

break;} 

case -1: 

{ 

for(i=0;i<ll;i+-t-){ 

length - sprintf^buffer, "%5.2r,max_G-{(i*della_GyiO.O)); 

TextOut(PaintDC,(intX(origin.x+shift*2-40)*width/640.0), 

(intX(ongin.y-3+(i-10)*del_y)*hejght/480.0), buffer, length); 

> 

break;} 

case >2: 

{ 

for(i-0;i<ll;i-H-){ 

length - sprintf(buffer, a %S.3r,max_G-((i*delta_GyiO.O)); 
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TextOut(PaiatIX^(iMX(ofigia.x~»ihift* l-40)*width£40.0), 

(intX(ocigin.y-3+(i- 10)*dd_y)*height/4S0.0), buffer, length); 

) 


break;) 

detedt: 

{ 

fcr(t-0;r<nU++){ 

length - gpriatfOwfler, "%5.4r.max_GK(i*delU_Gy 10.0)); 

TextOut(PiiaS>C,(intX(ongu.x-40)*width/640.0X 

(intX(origin.y-3+(i-10)*del_y)*height/41i0.0), buffer, length); 

> 


break;} 


> 


The blue pen is selected and the screen coordinates of the points to be plotted are 
then calculated and stored in the point array. A circle is drawn at each point. 

//select the blue pcs for plotting the curve 
SelectPen{PaintDC, hPlotPen); 

//calculate the screen coordinates corresponding to each point (r.G), store 
// the values in point(i], and draw an ellipse there 

fbr(H);i<num_points;i-H-){ 

point[i].x - (intX(origin.x^r(i]/inax_r)*10*deljc)*width/640.0); 
pointfij.y " (intX(origin.y-((G[i]-inin_G)/ddta_G)*10*del_y)*height/480.0); 

EUipse(PaintDC, point[i].x-2, point[i].y-2, point[i].x+2, point[i).y+2); 

> 

A curve is drawn through the points using the Polyline function. The original pen, 
font, and brush are then selected back into the device context and the pens, font, and brush 
created for this function are deleted. The memory allocated for data storage is then freed 
using the free function. 

//plot the curve by drawing a polyline through the points 
Polyline(PaintDC.point,numjXHnts); 
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//•elect the original pea, foots, and brush back into the device context 

SdectPea(PaiatDC, bOidPea); 

SekctFoot(Paint]DC,hOidFoat); 

Sdect0b)cct(PaintDC,b01dBnish); 

//delete the pens, brash, and foots created for this function 

DeieleObiect(hPlotPen); 

DeleleObject(hThinPen); 

DekteObject(bThickPen); 

DeleteObjectfhBrash); 

DeteteFont(hFoat); 

DdeteFont(hSmallFont); 

//free the allocated memory 

foeeCpoint); 

firee(r); 

ftee(G); 

> 

C.4.13 The write_output_file function. 

The write_output_file function writes an output file that contains all of the PLL 

text data available in the Output Viewer window. The function receives the handle to the 

output file selected by the user. 

void write output_file(HFILE out) 

{ 

z******************************************************************** 

* Variable declarations * 

Mt»*«MW***M**M***M**MM***MMMMM***M*****mMMMMM«**/ 



char 

* buffin; 

//pointer to a character buffer 


int 

numbytes; 

//number of bytes read by Jread 


HFILE in; 

//pointer to a file 


The write output file uses the malloc function to allocate a storage buffer that is 
used for reading the data files and writing the data into the combined output file. 

//allocate memory for reading the files into 

buffer ■ (char *) malloc((max_buf_sz)*stzeof (char)); 
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The function tests for the existence of each possible output file using the access 


function. Each file that is found to exist is opened with read access using the lopen 

function, is read with the Jread function, is written to the output file using the J write 

function, and is closed using the Jclose function. 

//read, and write to the overall output file, each available output file 

if (accesaCsummary.out", 0) “ 0) { 
in - _lopen(*summary.out’, READ); 
munjbytea- Jreadfin, buffer, max_buf_sz); 

Jwrite(out, buffer, numbytes); 

Jdose(in); “ } 

if (accessf detail 1. out*, 0) ~ 0) { 
in - _lopen("dctail 1 out*, READ); 
numbytes- _lread(in, buffer, maxbufsz); 

Jwritefout, buffer, num bytes); 

~lckwe(ut); } 

if (aooess(’detail2.out*, 0) — 0) { 
in ” _lopen(*dcta;12out", READ); 
num_bytes- _lread(in, buffer, maxbufsz), 
hvrilefout, buffer, numbytes); 

~lckwe(in); } 

if (accessCfards.out", 0) — 0) { 
in * Jopenffuds.out", READ); 
numbytes- _lrcad(in, buffer, maxjbufsz); 

Jwritefout, buffer, numbytes); 

_lclose(in); } 

if (access("duct.geo\ 0) <— 0) { 
in ■ _lopen(’duct.geo", READ); 
numbytes- Jicadfin, buffer, max_buf_sz); 
hvritefout, buffer, numbytes); - 

~ldoae(in); “} 

if (accessOstresa.out", 0) — 0) { 
in - JopenCstress-Out*, READ); 
num_bytef- Jreadfin, buffer, max buf sz); 

Jwritefout, buffer, num_bytes); 

_ldoae(in); } 

if(aocesaCnonaxi.cir”,0) —0) { 
in - Jopenfnonaxi.cir", READ); 
num_bytes- _lread(in, buffer, max_buf_sz); 

_lwrite(out, buffer, num_bytes); 

_ldoae(in); > 


if(access("nonaxi.for", 0)“0) { 


9 


ia ■ JopeaCaonaxi.br*, READ); 
nurabytea- Jrcadfin, buffer, nuw_buf_c); 

_hwtte(out, buffer, numbyles); 

Jdaae(in); ) 

if (acceaaCnooaxi.cmp*, 0) — 0) { 
ia “ JopeaCnoaaxi.cmp*, READ); 
ouni_byies- Jraadfin, buffer, maxJ>uf_sz); 

Jwrite(out, buffer, num_bytes); 
ldoac(in); ) 

if(aoces«Cnonaxi.har\ 0) — 0) { 
ia “ JopeaCnonaxi.har*. READ); 
numbytes- JrcadCin, buffer, oux_buf_sz); 

Jwritefout, buffer, numjbytes); 

Jdoce(iii); ) 

> 

C.4.14 The write_pbd_files function. 

The writejpbd_files function makes copies of the existing PBD output files using 
the output file root specified in the PBD Settings dialog box. The function receives no 
arguments. 

void write_pbd_fiks(vtHd) 

{ 

* declare variables that are defined in the pll.c file and that * 

* will be used in this function * 

extern char pbd_output_root[9); 

/,„',•****««*„*„„ 

* Variable declarations 


char dest[MAXFILE + MAXEXTJ; 

OFSTRUCT ofsource; 

OFSTRUCT ofdest; 

HFILE hfsource, 
hffl est; 


*«•*•***«•**/ 

//destination file name 

//data structure containing 
// information on the opened file 

//handles to the source and 
//destination files 


The function tests for the existence of each possible PBD output file using the 
access function. A destination filename is created for each file that is found to exist with 
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the fimerge function. The fhmerge function receives a pointer to a filename, a pointer to a 
drive, a pointer to a directory, a pointer to a file root and a pointer to a file extension. The 
function builds a filename from the components supplied and stores it in the filename array 
passed as the first argument. 

Each source and destination file is then opened using the LZOpenFile function 
The source file is copied directly into the destination file using the LZCopy function and 
both files are closed using the LZClose function. 

//if the pbdoutibg file exists, 

iftaccettfpbdoutibg". 0) —■ 0) { 

//then create a destination file name by merging the pbd_output_root name and 
// the ibg extension 

fiunergc(clest, NULL, NULL, pbd_output_roo(,”.ibg"); 

//open the source and destination files 

hfsource * LZOpenFikCpbdouLibg*, Aofsource, OFREAD); 
hfdest - LZOpenFikCdest, Aofdest, OFCREATE); 

//copy the source file into the destination file 
LZCopy(hfsource, hfdest); 

//dose both files 

LZCkse(h£source); 

LZClose(hfttest); } 

//repeat the process for all possible pbd output files 

ifiaccessCphdoutcbd*, 0) — 0) { 

filme^ge(de«,NULL,NULL,pbd_outpllt_root,*.cbd ,, ); 
h f s ource ” LZOpeaFikCpbdouLcbd”, &ofsource, CNF READ); 
hfdest-LZOpenFile(dest, ftoidest, OF_CREATE); " 

LZCopyfhfho ui ce. hfdest); 

LZCloac(hf»ooroc); 

LZC1oce(hfilest); } 

ifiaccessCpbdouLhub*, 0) — 0) { 

fiimerge(dest,NUU^NlJLL,pbd_output_root,". hub*); 
hbource “ IJSOpenFilef pbdouthub", Aofsource, OFREAD); 




hfdest - LZOpenFileCdest, Softest, OF CREATE); 
LZCopyChteutce, Udert); 
i zOot( Mtau c e) ; 

LZCloseChfckst); ) 

iRaocMCpbdoaLcxnv*, 0) — 0) { 

fiuntrge(deat,hnJlX,NUU^pbd_ouqNrt_root, > .cinv 1 '); 
hfsource ■ LZOpenFileCpbdoutTcmv*, Aofcource, OFREAD); 
hides* “ LZOpenFileCdest, Aofdest, OFCREATE); 
LZCopyChfsource, hfdest); 

LZCloseChfcource); 

LZCloseChfdest); ) 

ifCaccessCpbdoutcmr, 0) — 0) { 

fnme»^c(dcst,NULL,NULL,pbd_output_root,"cinr); 
hfsource « LZOpenFileC’pbdoutcmP, Aofsource, OF READ); 
hfdest - LZOpenFileCdest, ftofdest, OF.CREATE), 
LZCopyChfsource, hfdest); 

LZCtoseChfsource); 

LZCloseChfdest); > 

fcessfpbdouttot". 0) = 0) { 

fiunerge(dest,NULL,NULL,pbd_output_root,".tot"); 
hfsource = LZOpenFik("pbdout.tot", Aofsource, OFREAD); 
hfdest - LZOpenFileCdest, ftofdest, OF CREATE); 
LZCopy(hfsource, hfdest); 

LZCloseChfsource); 

LZCk»se(hfdest); } 

iffaccess("pbdcmt.gsp", 0) = 0) { 

fiimergeCde^NULL,NULL,pbd_<xitput_root,“gsp"), 
hfsource ” LZOpenFileC”phdout.gsp”, Aofsource, OFREAD); 
hfdest “ LZOpenFileCdest, Aofdest, OFCREATE); 
LZCopyChfsource, hfdest); 

LZClose(hfsource); 

LZCloseChfdest); ) 

ifCaccessfpbdouLsor, 0) — 0) { 

fiunergeCdest.NULL, NULL, pbdoutputroot,".sol"), 
hfsource “ LZOpcnFile("pt)dout sol", &ofsource, OF READ); 
hfdest - LZOpenFileCdest, Aofdest, OF CREATE); 
LZCopyChfaounx, hfdest); 

LZCtoseChfsource); 

LZCloseChfdest); } 

ifCaccessfpbdouLktq", 0) — 0) { 

fiuner^dest,NULl^NULL,pbd_outpid_root,' > .htq a ); 
hfsowoe ■ LZOpenFilcC’pbdout.ktq", Aofsource, OFREAD); 
hfdest - LZOpenFileCdest, ftofdest, OF CREATE); 
LZCopyChfsource, hfdest); 

LZCloseChfsource); 

LZCloseChfdest); } 


ifCnceessCpbdoutobg”, 0) — 0) { 



lhmci^«fc*t,NULUNUIJL,pbd_output_root,'.obf*); 
hfsource - LZOpenFilc("pbdouLobg", Aofsource, OFREAD); 

. LZOpeaFik(<kst, Aofdest, OFCREATE); 

I ZCopy(h&ourcc, hfikst); 

LZCtase(hfsource); 

LZCtoce(hfikst); > 

if(access( ,> pbdouLbsn", 0) — 0) { 

fiunove(de«t,NlJLL,NULL,pbd_outp(tt_rooC a -b«a' > ); 
h&ource - LZOpcnFik("pbdout.bsn‘, Aofsource, OFREAD); 
hfikst - LZOpenFilefdest, Aofdest, OF CREATE); 
LZCopy(hfitource, hfikst); 

LZCtoseQiftouree); 

LZCIose(hfdest); ) 

ifiacccssCpbdoutsgr*, 0) — 0) { 

fimiergc(<fcst,hRJIX,NULL,pbd_output_root,",sgr"); 
hfsource - LZOpenFile("pbdout.sgr\ &ofsourcc, OF READ); 
hfikst - LZOpenFUe(dest, Aofdest, OF CREATE); 
LZCopy(hfcource, hfikst); 

LZCk»e(h£souiGe); 

LZCk»e(hfikst); } 

ifiaccessCpbdouLrdc", 0) == 0) { 

fiunerge(<kst,NULL,NlJLL,pbd_output_ioot,”.rdc*); 
hfsource ■ LZOpenFileCpbdouLrdc*, Aofsource, OFREAD); 
hfikst - LZOpenFile(dest, Aofdcst, OF CREATE); 
LZCopy(hfsource, hfikst); 

LZClose(hfeource); 

LZCIose(hfdest); } 

if(access("pbdout.vcp", 0) — 0) { 

fnmcrgc(d«t,NULL,NULL,pbdoutput_root,''.vcp"); 
hfsource = LZOpcnFile("pbdout.vcp", Aofsource, OFREAD); 
hfikst ■ LZOpenFilefdest, Aofdcst, OFCREATE); 

LZCopy (hfsource, hfikst); 

LZClose(hfsource); 

LZCIose(hfikst); ) 


if(access( a pbdouthdi*, 0) — 0) { 

fhmerge(dcst,NU]LL,NULL,pbd_output_root,hdi"); 
hfsource ■ LZOpenFile("pbdout.hdi", Aofsource, OF READ); 
hfikst* LZOpenFilefdest, Aofdcst, OF CREATE); 
LZCopy(hfsource, hfdest); 

LZC1ose(hfsource); 

LZCk»e(hfikst); } 

if(access(*currpbd.err' ) 0) — 0) { 

fim>er g e( d est,NPULLJJIJLL,pbd_output_root,*.eiT*); 
hfsource * LZOpenFile("cunpbd.err", Aofsource, OF READ); 
hfdest - LZOpenFile(dest, Aofdest, OF CREATE); " 
LZCopyflrfsource, hfdest); 

LZC1oce(hfiwurce); 

LZClose(hfikst); } 
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if(acccss(*ciUTpbd.cb( a , 0) — 0) { 

fiunci^<fc*t,NUU^NUlX,pbd_output_root,*.eb8*); 
hftourcc - LZOpcnFilc(’currpbd.eb»*, Aofiwuice, OFREAD), 
hfika “ LZOpenFikCdest, Aofriest, OFCREATE); 
LZCopyOi&oiiice, hftfest); 

LZOoce(hfiouioe); 

LZClose(hfdcst); } 



APPENDIX C.5 


Miscellaneous PLL functions. 


C.5 Miscettaneous FLL functions. 


The PLL Windows™ application uses 21 different functions in addition to those 
already described in sections C. 1 through C.4. Two of the functions are used to handle 
the Output Viewer window scroll bar input. Ten of the functions are used to write files 
that provide input to the PLL and PBD FORTRAN executables. Seven functions are used 
to read standard PLL input data or project files and files written by the PLL FORTRAN 
executable. The final two functions are used to initialize global variables and to delete 
temporary data files. The function declarations are listed below in the order in which the 
functions will be presented. 

//scroll bar handlers 

void WMVScroll_Handler(HWND hWnd, HWND hwndCtl, UINT code, int pos); 

void WMKeydownHandlcr(HWND bWnd, UINT vk, BOOL fDown, int cRepeat, UINT flags); 

//file writing functions 
void write_inputfile(FTLE ‘blade); 

void write jroject_filc(FILE ‘blade); 

void write_pbdadmin_file(void); 

void write_defaultfile(FILE ‘blade); 

void write_wakecaIc_fiIc(FTLE ‘blade); 

void writeductforc_filc(FILE ‘blade); 

void write_absniles_file(FILE ‘blade); 

void write_thsttoiq_file(FILE ‘blade); 

void write_wkalcirc_file(FILE ‘blade); 

void writemisc_files(void); 

//file reading functions 

void read_biade_file(FILE ‘blade, int component); 

void read_wake_file(FILE ‘blade, int component); 

void read_input_file(FILE ‘blade); 

void read_project_fik(FILE ‘blade); 

void rcad_plot_file(FTLE ‘blade); 

void read_glauert_file(FILE ‘blade); 

void read_unload_dat_fi]e(FILE ‘blade); 

//misc functions 

void initialize(void); 

void dcletefiles(int fileflag); 
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C.5.1 The WMVScroU Handler function. 


The WMVScrollHandler function responds to WM VSCROLL messages. The 
function uses a switch to determine and perform the required response. 

void WMVScroU_Handkr(HWND hWnd, HWND hwndCtl, UINT code, int pos) 

{ 

The function uses a local integer variable to record the inital position of the scroll 

box. 


int temp; //temporary integer value used to 

// detect changes in scroll 
// bar position 

//record the initial scroll bar position 
temp - ScrollPos; 

//this switch specifies the response the scroll bar messages 

The switch responds to messages generated by clicking on the upper and lower 

arrows of the scroll bar, the scroll bar regions above and below the scroll box, and clicking 

and dragging the scroll box itself. 

switch(code) 

{ 

Clicking on the up and down arrows on the scroll bar causes messages with the 
SB LINEUP and SB LINEDOWN codes. The response in these cases is to increment or 
decrement the Scroll_Pos variable by one. The Scroll_Pos variable is a global variable 
that reflects the position of the scroll box on the Output Viewer window vertical scroll 
bar. 

//alter the value of Scroll_Pos as indicated by the message 

case SB_LINEUP: 

{ ScrollPos—; 

break; 

} 


case SB LINEDOWN; 



Clicking on the scroll bar above or below the scroll box causes messages with the 

SB_PAGEUP and SB_PAGEDOWN codes. The response in these cases is to increment 

or decrement the ScroU_Pos variable by the number equal to the number of lines that may 

be displayed in one page. 

case SBPAGEUP: 

{ Scroll Pos-“LinesInWindow, 

break; 

> 

case SB_PAGEDOWN: 

{ ScroUFos+-LinesIn Window; 

break; 

} 


The SB_THUMBTRACK case responds to the user moving the scroll box. 

case SBTHUMBTRACK: 

{ ScroU_Pos*=pos; 
break; 

> 

> 


The Scroll_Pos variable is constrained to be between zero and the total number of 
lines of text being displayed, the current range of the scroll bar, by a pair of max and min 
macro calls. 

//Scrolll_Pos must be between 0 and the total lines of text 

ScroUPos - max(ScroU_Pt*,0); 

ScrollJFos ” min(TotalLines, ScroU Pos); 


The scroll bar postion is set to the position indicated by the Scroll_Pos variable, 
and the Output Viewer window is repainted if the new scroll bar position is not the same 
as the initial scroll bar position. 

//set the scroll bar position to that indicated by ScroU Pos 


SetScroUPo6(hWnd, SBVERT, ScroUPos, TRUE); 




//if ScrollJHx has changed. cause the screes to be repai nted 

iRScroll Posl^emp) InvalidateRectfhWnd, NULL, TRUE); 

> 


C.5.2 Tlie WMKeydownHandler function. 

The WMKeydown Handler function translates keyboard entries and sends 
appropriate messages to the vertical scroll bar. This is done in order to allow the user to 
contol the Output Viewer window vertical scroll bar messages using the Up Arrow, Down 
Arrow, Page Up and Page Down keys. 

void WMKeydown Handler(HWND hWnd, UINT vk, BOOL fDown, int cRepeat, UTNT flags) 

{ 

switch(vk) 

{ 

//if the up arrow, down arrow, page up, or page down key is pressed, send the appropriate message to the 
//scroll handler 


This switch tests the unsigned integer identifier of keyboard entry messages. 
Messages corresponding to the Up Arrow, Down Arrow, Page Up and Page Down keys 
cause the SendMessage function to be used to send a WMVSCROLL message with the 
appropriate code to the Output Viewer window. This allows keyboard input to operate 
the vertical scroll bar. 


case VK_UP: 

{ SendMessagefhWnd, WMVSCROLL, SBJLINEUP, OL); 

break; 

} 

case VK DOWN; 

{ SendMessagefhWnd, WM_VSCROLL, SB LINEDOWN, OL); 
break; 

} 

case VK PRIOR: 

< SendMessage(hWnd, WM VSCROLL, SB_PAGEUP, OL); 

break; 

> 

case VK_NEXT: 
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{ 


Send* if mgr (h Wad, WM.VSCROLL, SB.PAGEDOWN, OL); 




) 

> 

Man; 

> 


C.3L3 The write_input_file function. 

The writeJnput_file function is used to write temporary input files in the format of 

standard PLL input files. The files written are used as input for the PLL FORTRAN 

executable. The function receives a pointer to a FILE structure as an argument. 

void write input fik(FILE * input) 

{ 

* declare variables that are defined in the pU.c file and that will be used in this function * 

extern char RUN_ID(21], image hub, image duct, ringed_propelkr|max comp], 
BLDIN[max_comp][21 ], WKIN[max_comp][21]; 

extern int use_curr_biade, NBLADE[max_comp], LDEV; 

extern float DCHD, DCD, DTHK, DDIAM, XDUCT, VS, RHO, DSHAFT, 

XDLOC [ maxcomp], XDIAM(max_comp], XWDIAM(maxcomp); 

/**««*M««M*«tM**M«tW««*M****«HM»tMMM*m*t***MHM*M«* 

* Variable declarations * 

struct date d; //date structure 

int M; //loop counter 

//fill the date structure with the current date 
getdatc(&d); 

//write the RUNID line 

fprintflinput," PROPELLER LIFTING LINE RUN: %e %d/%d/%d\n\ 

RUN_ID,d.da_mon,d.daday,d.da_year); 

//write the file description 

fprintflinput," OVERALL INPUT FILE \n"); 

//write the ship speed 
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.Ship apeed (ft/aec*a'.VS); 

/Ante the fWd deadly 

frrintHiaput.*%f.Fluid DeneiiyNa'.RHO); 

//write the ateft centerline depth 

lpriatft[inpiit,"%f.Shaft centerline depth (ft)\n" f 

DSHAFT); 

//write the number of c o mpon en t ! 

fprintftinput,*%d.Number of oomponenta\n*,LPEV); 

//write whether or not an image hub is used 


iftimagejtub""^V) 

fprintf( input, *%c.Image hub to be usedta”, image_hub); 

elae 

fprintftinput,"^.No image hub to be used\n\ image_hub); 


//write whether or not an image duct is used 


iftimage_duct—'Y') 

fprinlf(input,”%c.Image duct to be used\n“, imagejduct); 

else 

fprintftinput,“%c.No image duct to be usedta", imageduct); 


//write the duct data, if there is one 
if(image_<toct—V){ 
//write the duct chord length 


fprintfUnput,*^.(Duct chord length)/ (Component #1 

diametcr)\n"J>CHD); 

//write the duct drag coefficient 

fprintftinput.-Sf.Drag coeflident for the duct\n",DCD); 

//write the duct thickness 

fprintf(input,"ttf.(Duct thid m essV (Component #1 diameter)\n\DTHK); 

//write the duct diameter 
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ft 


lfcriad(bv«,"ttf..Duct diameter (ft)\a\ 

DD1AM); 

//write the duct axial location 

$riatl(iaput,*%f.Axial location of duct mid-chord (ft)\n\XDUCT); 

> 

*sr(M^>f<LDEV><++){ 

//if there ia no image duct, 

if(image_duct — ’N*) { 

//write whether or not the propeller is ringed 

if(ringedj?ropeller{M)==» r YO 

fprintf{input,"%c Component %d is \ 

a ringed propelkr\n*,ringed_propeUcr[M],M+l); 

else 

fprintfi;input,*%c Component %i is not a \ 

ringed propeller\n",ringed_propelkrfM],M+l); 

> 

//write the axial location if there is more than 1 propeller 
if(LDEV>l){ 

fprintf(input, *%f.Axial location of component %d 

(ft)\n” t XDIjOC{M],M+l); 

> 

//write die number of blades 

iprintf(uiput, a %d.Number of blades on component %d\n",NBLADE(M] r M+I); 

//write the diameter of the propeller 

fbrintf(input, <a %f.Diameter of component Sd (ft)\n a , XDIAM[M],M+1); 

//write the blade file name 
if(use_airr_blade) 

iprintffinput/cunSd.bld File containing Made inputs for comp. %d\n\M+l); 
dse 
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Ftte containing blade \ 


inputs for eoa^. %*n’ , .BLDlNfM*2 1 ]M+1); 

//mile the diameter at the wake 

foriatRinput,**/..Diameter of wake for conyooent %d (ft)\n\XWDIAM(M].M+1); 

//write the wake fik mmm 

fprintf(iiiput,"Ss File containing wake inputs for comp. %d\n*,WKIN[M*21],M+l); 

} 

//zero the uee_curr_bladeflag 
usejcurrJblade - 0; 


C.5.4 The write_project_file function. 

The write_project_file function is used to write project files in response to 
File) Save Project selections from the main menu. The function receives a pointer to a 

FILE structure as an argument. 

void write_prqject file(FIL£ *prqj) 

{ 

* declare variables that are defined in the pU.c fik and that will be used in this function * 

MWmtWMWMWMMWWMWMMWnMMMMMMMMMtMMWMMM/ 

extern char RUNJD{21], INPUTFILE120J; 

extern int LDEV, optimizerpm, optimize_diameter, maximizejhiust, no_runtimc_options, 

efiective_wake_flag. tunndoperationflag, ductforcesflag, 
duct_ring_vortex_forces_flag, drc_opt_wake_aligninent_flag, 
estuute_duct_.diculatioa_flag. esrimate_damping_fiag. NPANEL, 
contractiocratioflag. wake_ali gnmentflag, dreulatkm_opdmization_flag. 
optimnMKm jnct meanlineflag, empiricalvcdflag, 

propdkr_type_flag. 

propeUer_material; 

extern float horsepow e r. RFMfmax_compl. forustjcoefficient. catimated duct circulation, 
torque_ratio, damping. propdkr_duct_thnist_ratio, propeUer_ring_thnist_ratio, 
thrust estimate, CLMAX, TCHDMAX, HUBCHDfmax comp], TTIP, CDCON, 
RHVOR, PL1, PL2, CONRAT, GAPFAC, 
materialjconstantfuser_defined_nMUerial+ll[21, rake{2]; 






/•**••**••*•*•*•*•**•**•*••*•*••****•••*•*••**•••••«'•*••****•*•*•**•• 

* Vrtbhj t dw dmi * 

struct date d; //dale structure 

iat M; //loop counter 

//Oil the dale s tru ct ur e with the current date 
•eldale(Ad); 

//write the RUNJD line 

fyriatfCpnj,* PROPELLER LIFTING LINE RUN: %« %d/%d/%d V, 

RUNJD,d.dajnon,d.da_day,d.da_year); 

//write the (Ue deacription 

forintftprqj," OVERALL PROJECT FILE \n%20s Overall input \ 

fiIename\n",INPUTFILE); 

//write the RUNID 

fonntf(proj.*%s RUN ID\n" .RUNJD); 

//write the number of components 

fprintf(prt)j,"%d.Number of cotnpooents\n\LDEV); 

//write the rpm for each component 
for(M-0>f<LDEV>f++) 

fprintf(proj,’ , %f.RPM of component #%d\n\ RPM[M],M+1); 

//write the Optimize rpm flag 

fprintfCprqj,"%d.Optimize rpm fla^n”, optimize_rpm); 

//write the Optimize diameter flag 

Qjrintf(prpj,*%d.Optimize diameter flag\n", optimize diameter); 

//write the Maximiz e thrust flag 

QjrintHproj.-Sd.Maximize thrust flag\n", maximize thrust); 

//write die Horsepower for maximizing thrust 

tyrintf(pn)f,"ttf..Horsepower for maximizing thrustta", horsepower); 
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%rbd(i«qi,"9tf.Throat o oc flldeot for maximizing throst\n a ,thruet_ooeffideot); 

//write the No runtime options flag 

forind(prqi. a %d.No runtime options flagta*. ao_runtime_options); 

//write the Effective wake flag 

$riatf[pn&"ttd.Effective wake fiagNn". effective_wake_fiag); 

//write the Tunad operation flag 

foriatftproj.'Sd..Tunad operation fla^n”, tunad_operatkm_flag); 

//write the Duct forces flag 

forintf(pro),”%d.Duct forces ilag\n\ ductjbrccsjlag); 

//write the Duct ring vortex forces flag 

fpriatf(proj, ,, %d.Duct ring vortex forces flag\n", duct_ring_voitex_forces_flag); 

//write the Ciic opt wake alignment flag 

forintf(prqi,”%d.Ciic opt wake alignment flagon”, circ_opt_wake_alignmcnt_flag); 

//write the Estimate duct circulation flag 

ijpriatf(ptqi,"%d.Estimate duct circulation flag\n a , estimate_duct_circulation_flag); 

//write the Estimate duct circulation flag 

forinti(prq),' , %d.Estimate damping flag\n a , estimate damping flag); 

//write the Eitimatf d duct circulatioo 

forintHproj, a %f.Estimated duct drculation\n a , estimated_duct_circulation); 

//write the Torque ratio 

lferiati(ptqj,*Kf.Torque ratioNn", torqueratio); 

//write the Damping 

fpr i nd (p roj,*%f.Damping\n", damping); 

//write the Propdkr duct thrust ratio 

fprintfl[pruj, a %f.Propeller duct thrust ratkAn”, propeller duct thrust ratio); 

//write the Propdkr ring thrust ratio 















<priatftprqj, a %f.Propeller ring threat lattoVa”, propellerjing_thrust_ratio); 

//write the Threat «H—te 

$rintflprqj.*Sf.Threat estimateta*, thru6t_estimate); 

//write the a m xim u m lift coe ffic i e n t 

ftviatflproj.'Sf..Maximum lift coefficient^*, CLMAX); 

//write the maximum thidraeaa to chord ratio 

$riatf(proj. <> %r.Maximum thicknew to chord ntioW, TCHDMAX); 

//write the minimum chord/diameter ratio at the root for each component 
for(M-4)-,M<LDEV;M-H-) 

fprintf(prqj, a %f.Minimum chord/diameter ratio at \ 

the root for each comptmcnt\n",HUBCHD(M]); 

//write the tip thidmcaa to chord ratio 

lprintf(prqj,“Sf.Tip thiduiess to chord ratio\n", TTIP); 

//write the number of panels 

fprintf(proj,"%d.Number of panelsVn", NPANEL); 

//write the drag coefficient multiplier 

fprintftpro^-Sf.Drag coefficient multipiierin", CDCON); 

//write the hub vortex radius to hub radius ratio 

4rintf(prqj, a Hf.Hub vortex to hub radius ratio\n", RHVOR); 

//write the first Lagrange multiplier 

ft>rintftproj,*%f.First Lagrange multiplier^*, PL1); 

//write the second Lagrange multiplier 

4*intl(prqj, a 9tf.Second Lagrange multiplier\n a , PL2); 

//write the contraction ratio flag 

ftirintf(prpj, a Sd.Contraction ratio fiagNo”, contractionratioflag); 

//write the conrat to the file 

$rintftprqi, a Kf.Contraction ratio\n a , CONRAT); 



ft 


ft 


ft 


ft • 



ft 



ft 


ft 








in 
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//write the wakejdigMueat.flag 

4»iad(prot,*Sd.Wake tljpwat flag\n*, wake_alignmeat_flag); 

/Ante the d«ntetinnjiptimtzafifln.flag 

Qtrind{proj,*Nd.Circulation optimization flag\n\ cuculath»_optimization_flag); 

//write the choed_optimizatiou_flag 

$rintfl(proj, , '%d.Chord optimization flagW, chord_optimization_flag); 

//write the dnct_meanJine.flag 

fprintf(proj,*%d.Duct mean line flag\n", ductjnean_line_flag); 

//write the emptrical_vcd_fiag 

fprintf(pn>i,"%d.Empirical vcd flag\n", empiricalvcdflag); 

//write the duct tip gap factor 

fprintfl-prqj.'Sf.Duct tip gap factorin', GAPFAC); 

//write the propellertypeflag 

fprintf(proj,*%d.Propeller type flagta", propellertypeflag); 

//write the propellermaterial 

fprintf(prpj,"%d.Propeller materialNn", propellermaterial); 

//write the user defined propeller material constants 

fprintftprq^-Nf.Ultimate Tensile Strength(ksi)\n”, 

materialconstant [userdefinednuterial ] [0]); 

fprintf(prpj,*y»f.Specific Weight(Ib/u» A 3)\n", 

materialconstantf userdefinedmaterial ] [ tftr 

//write the rake at hub and tip for abs calculations 

fprintf(prqi, >l %f.Rake at hub\n", rake[0]); 

fi)rintf(proj,*%f.Rake at tip\n a , rake(lj); 

> 

C.5.5 The write_pbdadmin_file function. 















The write_pbdadmin_file function writes temporary PBD main administrative files 
for use by the PBD FORTRAN executable using the settings in the PBD Settings dialog 
box. The function receives no arguments. 

void writejbdadmin fUe(void) 

{ 

/•****«*•••**•*****••***•••••«*•******•****•*••**•*••••***•**••**•••• 

* declare variables that are defined in the pU.c file and that will be used in this function * 

extern char RUN_ID(21], ptod_run_titk[81], imagc hub, imagc duct, 

extern int NBLADE[max comp], NKEY, MKEY, ISPN, MCTRP, IHUB, 1DUC, 

MRPIN[max_compl, MLTYPE, MTHICX, IMODE, NWIMAX, NITER, RADWGT, 
NUFDC, NPLOT, pbd componcnt; 

extern float DGAP, TWEAK, BULGE, HGAP, HUBSHK, CDRAG, VS, RPM|max_comp], 
XDIAM(max comp), XULT, XFINAL, DTPROP; 

* Variable declarations * 

MMMMMMMMMMMMmMMMMtmMMO************************/ 


FILE 

*proj, *dat; 

//pointers to file structures 

int 

•J; 

//loop counters 

float 

temp. 

//temporary float for reading data 


ADVCO, 

//advance coefficient of the 
// propeller, J_s=(V_s/nD) 

//open the file to be written 



proj * fopen("cunpbd.pbd", "w"); 

//write the RUNID line 

fixintf(pro9, a, PBD14.2 currpbd.pbd %s \n", pbd_run_titk); 
//write the name of the b-spline file 
if(pbd_component-H)) 

fprintf(prqj,"currpbdl.bsn\ii 1 '); 

else 

fprintf(prpj,"cunpbd2.bsn\n*); 



I 


ft 


ft 


I • 


ft T 


I 




i 
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//write the bum of the velocity file 


ihriattOprej.'currpbd vd\a 1 '); 

//write eblude, okey, and akcy 

fitrintfiproj,* SdSdSd \n",NBLADElpbd_compooeot],NKEY, MKEY); 

//write t^a 

ftwintfiproj," Sd \nMSPN); 

//write acttp end the control points 

fitrintfltproj/ Sd “.MKEY-l); 

M»“l; io-MKEY-1; i++) 

fprindtproj," Sd", i); 

//write ihub, hgap, iduc, dgap 
ifCunagc_hub , “'Y’) 

fprintf(prqj,"\n Sd ”, (intX(floatKMKEY)/3.0)); 
else 

fprintf(proj,’ , \n 0"); 
frrintf(prqj,-Sf,HGAP); 
if(image_duct“-'Y T ) 

fprintf(proj," Sd ”, (intX(floatXMKEY)/3.0)); 

dee 

iprintfijwqj," 0 "); 
fprintf(proj," Sf\n*, DGAP); 

//write nx, -nx, ml type, ml thick 

fprintf(jproj,” Sd Sd Sd Sd \n\ MRPIN[pbdcomponent],-MRPIN[pbd component], MLTYPE, 

MTHICK)7 

//write imode 

fprintf(proj," %d \n", IMODE); 


//write nwimax 





ftriadlpn*." %d \n\ NWIMAX); 

//write oiler, tweak, bulge, radwgt, oufix 

fprintfiproj,* Sd %f%f%<l %d \n\ NITER, TWEAK, BULGE, RADWGT, NUFIX); 

//write nplot and hubcfak 

fprindtprqj," %d SfVo* NPLOT. HUBSHK); 

//write cdrag 

fprintfiproj,* SfVn*, CDRAG); 

//calculate the advance coefficient, use 200 if the component is a stator and use RPM|0] if the absolute 
value 

// of RPM[0| is <3.0(alieady an advance coefficient) 
if(CBbs(RPM[pbd_component])<del) 

ADVCO -200.0; 

else 

if(fabs(RPM[pbdcomponent])<3 0&Afabs(RPM[pbd_componcnt])>del) 

ADVCO = RPM[pbd_component]; 
else 

ADVCO = ((RPM[pbd_component]*2.0*PI/60.0)*XDIAM[pbdcomponent]); 
//write advance coefficient, xult, xfinal, and dtprop 

fprintf(proj," %f%f%f%T. ADVCO, XULT, XFINAL, DTPROP); 

//open the file containing G, r/R, t/s, UA, UAU, UT, and UTU 
iHpbd_component=0) 

dat - fopen("PBD ADM 1 .DAT", V); 

else 

dat - fopenCPBDADM2.DAT", V); 

//loop through the data, rad from the dat file and write to the proj file 
for(H); i<7; i++) { 
lprintf(proj,"\n"); 

for(/*=0; j<MRPIN{pbd_componentJ; j++) { 


ffcauf(dat,"%r,&temp); 

W, temp); 


> 


) 

//doaeboth files 

fckMC<proj); 

fidoae(dat); 

} 

C.5.6 The write_default_file function. 

The write_default_fiJe function writes the default value file that the PLL 
FORTRAN executable uses to initialize the variables that appear in the Current Settings 
menu of the original version of PLL. It receives a pointer to a FILE structure as an 
argument. 

void write default_file(FILE ‘blade) 

{ 

/**********************•**«********************#********************* 

* declare variables that are defined in the pll.c file and that will be used in this function * 

extern float CLMAX, TCHDMAX, HUBCHD[max comp], TTIP, CDCON, RHVOR, PL1, PL2, 
GAPFAC, CONRAT; 

extern int NPANEL, contraction_ratio_flag, wake_alignment_flag, circulation opti mization flag, 
cbord optimization flag, duct mcan line flag, empirical_vcd_flag, LDEV; 

,«**•*•*••••*•**»*•*•*•••****••***•*******•******#*****•*«*******»*** 

* Variable declarations * 

**•***••***••*••*****•***••***•****••**••*****•**••****•***•**•*•**•*/ 

int M; //counter for the loops 

//write the maximum lift coefficient 

fprintf(blade,*%f\n*,CLMAX); 

//write the maximum thickness to chord ratio 

fprintftblade,"%fin-,TCHDMAX); 
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4 
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4 


4 


4 
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//write the ■ i « ilMi " chord/diameter ratio at the root for each component 
«m(!^>4<LDEV;M++) 

4priatflblade, a SI\a a ^lUBCHD(M]); 

/Ante the tip thicknera to chord ratio 
fJjrindtblade,’%fin\TTIP); 

//write the number of panels 

Qjfind(blade, ,, %d\n\hffANEL); 

//write the drag coefficient multiplier 
4mntf(blade. << %t\n N ,CDCON); 

//write the hub vortex radius to hub radius ratio 
fprintf^Iadc,*%f\n\RHVOR); 

//write the first Lagrange multiplier 
lprintf(blade,"%f\n",PLl); 

//write the second Lagrange multiplier 
fprintf(bladc,' , %f\n\PL2); 

//write the contraction ratio flag 

fprintf(blade,"%d\n",contractjonratio_flag); 

//if the contraction_ratio_fiag = 1, the entry will be the default value, otherwise, must write the conrat to 
// the file 

if( contractionratioflag = 0) 

fl>rintftblade,"%f\n",CONRAT); 

//write the wake_alignment_flag 

fprintfl^blade, "%d\n", wakcalignmentflag); 

//write the circulationoptimizationflag 

fpriidfl[blade,' , %d\n",circulation_optiinization_fiag); 

//write the chord_optimization_flag 

fprintftblade,"%d\n",chordopdmizationflag); 

//write the duct_mean_line_flag 
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fbriati{biade,"%dto\diict_incaaJiM_flag); 

//write the eapiricai_vcd_flag 

l)priatf(blade,"%(ta\eiiipirical_vcd_flag); 

//write the duct tip gap lacter 

Q^ntftbUde,"%f\n’ > GAPFAC); 

> 

C.5.7 The write_walcecalc_file function. 

The write_wakecalc_file function writes the file that is read by the PLL 

FORTRAN executable to determine if the effective wake should be calculated and if the 

component(s) is(are) operating in a tunnel. The function receives a pointer to a FILE 

structure as an argument. 

void write wakecak filc(FTLE *biade) 

{ 

/**•«**••••••*••**••**•***•••*•*•***•***»***••*****•******••••*•*••*• 

* declare variables that are defined in the pll.c file and that will be used in this function * 
•**••**••••••••**••••*••*******•********•«*****«***********•********«/ 

extern int efifective_wake_flag, tunnel_operation_flag; 

//write the effective wake flag 

^xintf(blade,’ , %d\n",effective_wake_flag); 

//write the tunnel_operation_flag 

fprintf(bladc,'%d'\ tunnel operation flag); 

> 

C.5.8 The write_ductforc_file function. 

The write ductforc file function writes the file that is read by the PLL FORTRAN 
executable to determine if the duct forces or duct ring vortex forces should be ignored and 
if an estimate of duct circulation should be used and the value of the estimate. The 
function receives a pointer to a FILE structure as an argument. 






void write ductforc fik(FILE *t>iade) 

{ 

* declare variables that are defined in the pU.c file and that will be used in this function * 

extern int duct_ring_vortex_forces_flag. <hict_forces_flag, estimatejhict_circulation_fiag; 

extern float csti mated_duct_drculation; 

//write the duct ring vortex forces flag 

fprintfl>lade,*Sd\n‘,duct_rint_vortex_forces_flag); 

//write the duct forces flag 

fprintf^blade,"%d\n",duct_forces_flag); 

//write the estimate duct circulation flag 

fprintfifoladc,"%dW,estimate_diKa_circulation_flag); 

//write the estimated duct circulation 

fprintf(blade,*%f\n",estimated_ductcirculation); 

} 

C.5.9 The write_absniles_file function. 

The write absrules file function writes the file that is read by the PLL FORTRAN 
executable to determine whether the propeller is fixed or controllable pitch, the rake, and 
the material properties for the purposes of the ABS Rules strength calculations. The 
function receives a pointer to a FILE structure as an argumeftf. 

void write absnilcs filc(FTLE *blade) 

{ 

/»***••••»*•*••**•*••»*•**••***»•*•*•••*****•***•***•**•****»•***••*• 

* declare variables that are defined in the pU.c file and that will be used in this function * 

extern int propeller_type_flag, propeUer material; 

extern float malerial_constant[user_defined_material+l][2], rake[2); 








/Ante thr ropelkr_type_flag 

i^rtetf(Uade > ,, SAB*^rapdkr_type_llac); 

//write tic Material UTS ia kri 

l)priBri(bla(k, ,, %ra*,BuMerial_coi»Uw4propeiW_inateria]][0]); 

/Ante the material specific weight ia lie per cubic inch 

l|iriart(bl>ik,"%l\a*.aialeriel_cooiteBt|pnipdler_Bieterial][l]); 

/Ante the rake/diameter at the tip 

fprintf(blade, <> ttfa l> ,nke(l]); 

//write the rake/diameter at the hub 

^>rintf(blade,*%fin’,rake|0]); 

> 

C.5.10 The write_thstto rq_file function. 

The writc_thsttorq_filc function writes the file that is read by the PLL FORTRAN 
executable to determine the thrust estimate for the project and the desired ratio of thrust 
between components two and one and the ratio of duct or ring thrust to total thrust. The 
function receives a pointer to a FILE structure as an argument. 

void write_thsttorq_fik(FILE *bladc) 

{ 

* declare variables that arc defined in the pll.c file and that will be used in this function * 

extern float thiustjcstimatc, torqueratio, propellcr_duct_thrust_ratio, propeller_ring_thrust_ratio; 
//write the thrust estimate 

fpriirtf(blade,*^4f\n*,thrustestimate); 

//write the torque ratio 

4>rintftUade,*%f\n fl ,tofqt)e_ratio); 

//write the thrust ratio between the propeller and the total thrust for the ducted case 
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fpriatl(btade,"%fia" .propellerjhxXJhnat_ratio); 

//write the thrust ratio between the propeller and tike tool thru* for the ringed cue 
lpriaif(blade > "%fa\propcller_riagjhnist_rotio); 

> 

C5.ll The write_wkakirc_fife faictwa. 

The write_wkaldrc_file function writes the file that is read by the PLL FORTRAN 
executable to determine if the wake should be aligned during the circulation optimization 
procedure. The function receives a pointer to a FILE structure as an argument. 

void writewkakirc fik<FTLE *blade) 

{ 

* declare variables that are defined in the pll.c file and that will be.used in this function * 
••»***«***•*•••••••*•*••••••••*•**•*••••*•*•*«*•*•**«******•*•******»/ 

extern int circoptwakcalignmentflag; 

//write the drcoptwakcalignmentflag 

fprintf(blade,' , %d\n”,circ opt wakc alignment flag); 

> 

C.5.12 The writem isc_files function. 

The write mise files function writes several input files that are read by the PLL 

FORTRAN executable. Some of the files are written using fprintf function calls while 

others are written by calling functions described elsewhere in this appendix. The function 

receives no arguments. 

void write misc_filcs(void) 

{ 

/»****•••*•*••**•****•****•*•*•••*******•«•*•**•*••*•,****••*•„*,„, 

* declare variables that are defined in the pll.c file and that will be used in this function * 

extern float pbd ikewt max rad] [ max_comp], pbd_rake[max_rad] [ max comp], damping, 
horsepower, thnistcoefficient; 







extern iat ptod_fik_fla*. NKEY, MKEY, MRPINfaux.coap). eitimale_dampiai_fla*. 

opdnuzerpm, optimizejiiinwScr, amxtmiwijhraa, unlondjlag. matchEARfla*. 
eval_aowud_Mator, ao_rantime_options; 


/»•**•*«•*******••••**••**•*•••*«••**•***••*•*••**•**••*********«*••* 
* Variable declarations • 


FILE *out 
(tract dated; 
(tract timet; 
iat k; 


//pointer to a file structure 
//date structure 

//time structure 
//loop counter 


These three blocks of code open, write, and close temporary default settings, 

project, and input files. 

ad - fcpenCtemp.def\ V); 
writejkfiuih_fUe(out); 
fcloce(out); 


oid - fopenftemp.pri”, "V); 

writejprqject_file(out); 

fciose(out); 


old ■ fopenCtemp.inp", "w"); 
write_inputfUc(out); 
fcloee(out); 


If the pbdfileflag flag is set, a temporary file that is used by the PLL FORTRAN 
executable to write the PBD B-spline file is written. 
if(pbd_file_flag){ 

out - fopen("PBDDEF.DAT V*); 
fprintf{out,* %d NKEY, MKEY); 

for(k-0; k<MRPIN[0]; k++) 

fprintffaut," %f %l\n\ pbd_(kewfk][0], pbd_rakc[k][0]); 
fciose(oid); 
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} 


I 

The next five blocks of code open, write, and dote temporary files that are used by 
the PLL FORTRAN executable. Functions described elsewhere in this appendix are used 
in these blocks. k 


out - fcy f w b ta lcMf , “w*); 
writejnkoca)c_flte(oui); 
fckm(out); 

I 

out - lbpea(*(juctforc»et", V); 
writejkictfiMC_file(out); 
idow(out); 


out “ fopcn(*th*dorq.set", V); 

write_tluttoni_file(out); 

fckwe(out); 


out m fbpcuCabeniIcs.aci", V); 
wnte_abcmles_fUe(out); 
l !oae(out); 


out - lbpcii("wkakuc.set", "w"); 

write_wkaldrc_fik(o«it); 

fdoM(out); 


The last four blocks of code write files used by the PLL FORTRAN executable by 
using fprintf function calls. 


out - fopeaCdamp flg', V); 

<priadtout,"%d \irt^,e«tim«te_<faunpuig_flag.danying); 
fckMo(out); 

I 


out “ fo pen C optiotw set", *w*); 

HoptuafaBejun) fprintf(out,"0\n"); 

ifloptimizediaroetcr) fprintftout/lVn"); 

iflmaxi mizethnat) fpcintfCout,*^*); 

iftunioadfUg) fpcintf(out,*3\n’); 

if(mtch_£AR_llag) fprintf(out, ,> 4\a”); 

iReval_nooaxi_ftator) Q)rintfl[out,"3\n"); 

if(ao_nuXime_opticws) lprintf(out,*99^'); 
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ffcriadCmt.'SfNa', horsepower); 
^riad(oat, a %ra a . thnrtcoeffldeat); 

fcfaee(0at); 

<m( * fcpeaOpbd-set", "w"); 

*rhaflaat,-%d^ a j>bd_lUe_fla*); 


|gHjae(At); 

ferittflo*,' %02d.-%Q2d\a a , ttihoar, Lti_un); 
predate*Ad); 

$riad(oat,* %02^%02dAV)2d/n\ d.dajnoo,d.da_day,d.da_year); 

- * -*V- 


C5.I3 The read.bladejile function. 

The readJbladeJBle function reads standard PLL blade data files. It receives a 
pointer to a FILE structure and the component number for which the file is being read. 
The function is compatible with files written by and for the original FORTRAN version of 
PLL and files written by the MIT-PLL Editor program. 


i 


I 


void read blade_file(FILE "blade, int component) 

( 

..................................................................... I V 

* declare variables that are defined in the pU.c lik and that will be used in this function * 
»•*•*•***•**«•••••••••#*••*•••••••**••••*»*••«*••••***•*****#•**••••*/ 


extern int MRPINlinaxcotnp], MBIN[max_comp], 

extern float XRPJN(max_radJ[inax_cotnpJ, XCHD(max_rad][max_comp], 

XTHKlmax_rad][max_comp], XCD[max_rad][max_comp], 
XGfmax_rad]{max_coinp], BAR|max_compl, 

B ANGIN( maxjuigH max_comp], BCHDIN[max_ang][max_comp]. 
BTHKINJmaxtngHmaxcomp], BCDIN[max_angl [ maxcomp], 
BCnUN(aMx_aQg)(max_comp]; 


* Variable declarations * 


int M, 

nextehar- 1; 


//loop counter 

//integer variable for reading 
//data character by character 


i 
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while (aexteharM3AAaextehar!-10) 


nextehar ■ gete(Made); 
a«tcher-l; 

/heap second line 

while (nextehar1-13AAnextehar1-10) 
nmtckit ■ getc(blade); 
aextehar -1; 

//scrap third line 

while (ncxtcharl i “13A&nextchar!-10) 
nextehar • getc(blade); 
nextehar *1; 

//read in the number of radii 

ftcanfl^iade,"%d ",&MRPIN[compooent]); 

//scrap fifth line 

while (nextehari i »13&&nextehar!»‘10) 
nextehar - getc(Madc); 
nextehar-1; 

//loop through the components and read in the radii 
for<M»0;M<MRPINlcoinponent] JM++) 

fccanf(blade,*%f *,&XRPIN[M] [component]); 

//scrap seventh line 

while (nextchar!-13&&nextchar!«10) 
nextehar - getc(Uade); 
nextehar ”1; 

//read in the Made chords 

for(M=H);M<MRPIN[componcnt];M++) 

fscanf[blade,*%f \&XCHD[M][component]); 

//scrap ninth Une 

while (nextchar!>=13&Anextchar!=10) 
nextehar - getc(Wade); 
nextehar *1; 

//read in die Made thicknesses 


ft 



ft 


ft 


» 


» I 


ft. T 


» 



ft 
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frirftNade.-Sf %AXTHK[M)(c»nponeat]); 

//scrap eleventh line 

white (aexlchar1“134Aaex»charM0) 
nextchar-gstcthtede); 
nextchar-1; 


for(M-0>l<MRPIN[co«nponeni] ;M++) 

fscanf(btede,*ttf ",AXCD(MHcMnpoueatl); 

//scrap thirteenth line 

while (nextchar1-13A&nextchar!-10) 
nextchar ■ getc(blade); 
nextchar -1; 

//read in the blade circulation 

for(M-0;M<MRPINlcomponent] ;M++) 

fitcanfCMade,"%f ",<tXGfM][component]); 

//if the next character is not the EOT, then read in the ring data 


if(getc(blade)l-EOT) { 

//scrap fifteenth line 

white (nextchar!=*13&Anextchar!=10) 
nextchar - getc(blade); 
nextchar *1; 

//read in the angular extent of the ring 

fccanf(blade,*%f \&B ARJcompooent]); 

//scrap seventeenth line 

white (nextcharl sB 13&&nextchar! a> 10) 
nextchar - getc(Wade); 
nextchar-1; 

//read in the number of angles 


ftcanfl[blade, > %d ",AMBIN[co mp ooent]); 


'frrui ■inrtfifth linr 

while (aextchari«13AAnextchar1«l()) 
nextchar - ge*c(biade); 

//read in the angles 

foc(MH)>4<MBIN[cotnpoocatl;M-^) 

ficanf(biade,*%f •,&BANGIN[M][cofnpo«»cxH]); 

//scrap twenty-first line 

while (nextchar!»13A£nextchar!“10) 
nextchar - gctc(blade); 
nextchar *1; 

//read in the ring chords 

foriM=K);M<MBIN[con^nent];M-H-) 

fscanil(blade,”%f \&BCHDIN[M][component]); 

//scrap twenty-third line 

while (nextchar!-13AAnextchar!“10) 
nextchar - getc(biade); 
nextchar*!; 

//read in the ring thicknesses 

for<MK)>4<MBINlcoajponcnt] ;M++) 

fscanftbladc,"%f ",ABTHKIN[M] [component)); 

//scrap twenty-fifth line 

while (nextchar!*13&&nextchar!=10) 
nextchar * getc(blade); 
nextchar -1; 

//read in the ring viscous drag coefficients 

for(M-0,M<MBIN[conipooeirt] 

fscanf(blade, "%f ",&BCDIN[M][component]); 

//scrap twenty-seventh line 

while (nextchar!*13ftftnextcharl*10) 
nextchar * getc(blade); 
nextchar*!; 
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//read in the ring cireaJatioas 


fcf(MH)->4<MBIN|coinpooeml>4-H-) 

facanf(Naric,'‘%f \ABORIN[Mllcoinponeal]); 

} 


C.5.14 The rcadwakefUc function. 

The read wake file function reads standard PLL wake data files. It receives a 
pointer to a FILE structure and the component number for which the file is being read. 
The function is compatible with files written by and for the original FORTRAN version of 
PLL and files written by the MIT-PLL Editor program. 


void read wake fik(FILE •wake, ini component) 

< 

/••***•**••••••*•*••*•••*••****•••*♦••••••••***••••*•••*•***••*•*•*** 

• declare variables that are defined in the pll.c file and that will be used in this function 

extern int NRWIN[max comp], NHARMA[maxcomp], NHARMR[maxcomp], 

NHARMTJmaxcomp]; 

extern float XRWIN[max_wake_radHmax_comp), 

XVA[max_wakerad] Imaxwakehar] [2] [ maxcomp], 

XVR] maxwakerad] [ maxwakehar] [2 ] [maxcomp], 
XVTlmaxwakerad] [ maxwake_har] [2 ] [ max_comp]; 


* Variable dedaratioos * 

«m*mm*«*m*m«**m**m*m***mm«*mmmm«mmm*m*m*mm*mm*/ 


int M,J, 

nextchar m 1; 


character 


//loop counters 
//integer variable for reading 
// data character by 


//scrap first line 

while (nextchar!”13AAnextchar!=10) 
nextchar ■ getc(wake); 
nextchar -1; 

//scrap second line 


437 


k 

I 

b 

I 

l 

I 

i 

3 

\ 

i 



► 


> 


b T 

». 

► 


! 

I 

i 

► 


■MHMiHMIi 






» 


while (nextchari- 13RR ncxlrharl -10) 
nextchar - getc(wake); 

//scrap third line 

while (nextchar1~13&&nextchart>10) 
nextchar - getc(wake); 
nextchar -1; 

//read in the number of radii 

faau»f(wake > “%d “,ANRWIN(compooent]); 

//scrap fifth line 

while (nextchar!”13AAnextchar!“ 10) 
nextchar * getc(wake); 
nextchar *1; 

//read in the NUMBER OF HARMONIC COEFFICIENTS (axial, radial, tangential) 

ficanf(wake,"%d ",ANHARMA[component]); 
fscanf(wake > "%d \&NHARMR] component]); 

£scanf(wakc,"%d ".ANHARMT] component]); 

//scrap seventh line 

while (nextchar !*'13&&nextchar!=10) 
nextchar * getc(wake); 
nextchar >1; 

//read in the NONDIMENSIONAL RADII FOR INPUTS 
fot(M^;M<NRWINlcomponent];M-H-) 

fscanf(wake,“%f “,<ftXRWIN[M] [component]); 

//scrap a line 

while (nextchar N13&&nextcharN 10) 
nextchar * getc(wake); 
nextchar *1; 

//read in the AXIAL COSINE HARMONIC COEFFICIENTS 
fin(M)J<NHARMA[c onip o n e n tlJ-M-){ 

foc(M-0>l<NRWIN{coinponent] ,M++) { 

fecanf(wake,*%f ",&XVA[M][J][0][component]); 

> 
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//scrap a line 

while (nextcharl-13&&nextcharl*10) 
nextchar “ getc(wake); 
nextchar-1; 

//read in the AXIAL SINE HARMONIC COEFFICIENTS 
&t{W);J<NHARMA(compooent];J++){ 

for(M*0;M<NRWIN[coinponent];M++){ 

fscanflwake,*%f ",&XVA[M] [ J] [ 1 ] [component]); 

} 

} 

//handle the radial coefficients if there are any 
if(NHARMR[coinponent]>0){ 

//scrap a line 

while (nextchar!=13&Anextchar!=10) 
nextchar = getc(wake); 
nextchar >1; 

//read in the RADIAL CX)SINE HARMONIC COEFFICIENTS 
for(J st O;J<NHARMR[componentl;J-H-){ 

for(M=0;M<NRWIN [component] ;M++) { 

fscanf)[wake,*%f ",&XVR[M][J][0][component]); 

} 

} 

//scrap a line 

while (nextchar!=13&&ncxtchar!=10) 
nextchar * getc(wake); 
nextchar *1; 

//read in the RADIAL SINE HARMONIC COEFFICIENTS 
for(J“0;J<NHARMR(coniponent];J++){ 

for(VI-0;M<NRWIN[componentJ;M++){ 

fscanftwake," , /«f",&XVR[M][J][l] [component]); 
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//handle the tangential coefficients if there are any 
il(NHARMT|coinpoocntI>0){ 


//•crap a line 

while (nextduui-13AAnextcfaarl-10) 
nextchar - getc(wake); 
nextchar-1; 

//read in the TANGENTIAL COSINE HARMONIC COEFFICIENTS 
fo«tJ^;J<NHARMTlcomponent]; J-H-) { 

for(M=0;M<NRWIN[component];M-H-){ 

fscanf(wakc,*%f ",&XVT[Ml[J][0][componentl); 

> 

} 

//scrap a line 

while (nextchar!=13&&nextchar!=10) 
nextchar » getc(wake); 
nextchar =1; 

//read in the TANGENTIAL SINE HARMONIC COEFFICIENTS 
for(J“0;J<NHARMTIcomponent];J-H-){ 

for(M“0;M<NRWIN[coniponent];M++){ 

fscanl^wake, *%f ",&XVT(M] [ J] [ 1 JlcomponentJ); 


C.S.15 The read_input_file function. 

The readinputfile function reads standard PLL input data files. It receives a 
pointer to a FILE structure. The function is compatible with files written by and for the 
original FORTRAN version of PLL and files written by the MTT-PLL Editor program. 
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void read input fiio(FILE *biade) 
{ 


ini M, 

nextchar = 1; 


//scrap first line 


while (nextchar! * 13&&nextchar!=10) 
nextchar = getc(blade); 
nextchar =1; 

//scrap second line 

while (nextchar!=13&&nextchar!=10) 
nextchar = getc(blade); 
nextchar =1; 

//read in the ship speed 

£scanf(blade,^/.f\&VS); 

//scrap the rest of the line 

while (nextchar!=13&Anextchar!=10) 
nextchar “ getc(blade); 
nextchar “1; 

//read in the fluid density 

fscanf(blade,"%f , ,&RHO); 

//scrap the rest erf line 

while (nextchar!=13&Anextchar!=10) 
nextchar ■ getc(blade); 


//loop counter 

//integer variable for reading 
// data character by character 



/•**•***••••**•*•*•******•****•**•••**•••••***«**************•******• 

* declare variables that are defined in the pll.c file and that will be used in this function * 

a 


extern char 

RUNJDpi], imageJnib, image duct, ringed_propelkr{maxcomp], 

'i 

i 

1 


BLDIN(max_coaip](21 ], WKIN[max_compJ[21J; 



extern int 

usecurrbiade, NBLADE[max_comp], LDEV; 



extern float 

DCHD, DCD, DTHK, DDIAM, XDUCT, VS, RHO, DSHAFT, 

l 

1 


XDLOQmaxcomp], XDIAM[ maxcomp], XWDIAM] maxcomp]; 

1 


* Variable declarations * 
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//read 1 b Ac shaft centerline de pth 

ftcaaftblade.'ST.ADSHAFT); 

//scrap the rat of line 

while (nextcfaart-13A&uextchart-10) 
nextehar ■ getc(btade); 
nextehar-1; 

//read in the number of components 

ficanftblade, *%d*\&LDEV); 

//scrap the rat of line 

while (nextcharl-n&Anextcharl-lO) 
nextehar = getc(blade); 
nextehar -32; 

//find out if an image hub is to be used 

while (nextchar 3! »32pncxtchar=9||nextchar=10||nextchar=13) 
nextehar - getc(blade); 

if(nextchar=(intX , Y , )||nextchar==(intxy)) 

imagehub - V; 

else 

image hub - H*; 

nextehar =1; 

//scrap the rest of line 

while (nextchar!= c 13&&nextchar!=10) 
nextehar = getc(blade); 
nextehar -32; 

//find out if an image duct is to be used, this while statement rejects spaces, tabs, carriage returns, and line 
// feeds so that extra lines in an input file won't crash the program 

while (nextchar“=32||nextchar=9||nextchar=10||nextchar=13) 
nextehar = getc(blade); 

if(nextchar»=(int)001|nextchar=={intXy)) 

imageduct * V; 
else 

imageduct ■ *N'; 
nextehar =1; 


» 


i 


ft 




ft 



i 


» 


» 
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//scrap thereat of line 

white (aadchart-13AAaexlchari-10) 
nextchar - getc(biade); 
■Batch*-32; 

//read fe duct data if fere is one 
i«i«ape_duct — T) { 


//read fe duct chord 

ftnnHWade,*%f^tDCHD); 

//scrap fe rest of line 

white (nextchart”13&Anextchar!-10) 
nextchar - gctcfblade); 
nextchar-1; 

//read fe duct drag coefficient 

ficanf(blade,-%r,&DCD); 

//scrap fe rest of line 

while (nextehar!=13&&nextchar!=10) 
oextchar - getc(blade); 
nextchar =1; 

//read fe duct thickness 

fecanftblade.-W’.ADTHK); 

//scrap fe rest of line 

while (nextchar!=13&&nextchar!=10) 
nextchar - gctc(bladc); 
nextchar-1; 

//read the duct diameter 

ficanf(blade, ,, %r,ADDIAM); 

//scrap the rest of line 

while (nextchar!-13£&nextchar!-10) 
nextchar - getc(biade); 
nextchar-1; 

//read the duct axial location 

ficanQUade, <> %r,ftXDUCr); 
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//scrap thereat of has 


white (oex*char1«13AAnexichar!«10) 
nextchar-geic<bUde); 
nextchar-32; 

) 

//handk both propellers, if there are two 

fcr(M^M<LDEV;M-^){ 

if(image_duct “ (charX78)) { 

//find out if the propeller is ringed 

while (nextchai^liynextchar^llnextchar^lOjlncxtchar^B) 
nextchar ~ gctcfldade); 

if(nextchar“89)|nextchar=121) 

ringcd_propellcr[M] * (charX89); 
else 

ringcd_propcller(M] = (charX78); 

nextchar =1; 

//scrap the rest of line 

while (nextchar!-13&&nextchar!=10) 
nextchar - getc(blade); 
nextchar *1; 

} 

//read the axial location if there is more than 1 propeller 
if(LDEV>l){ 

fscanf(blade, “%f ,&XDLOC [M]); 

//scrap the rest of line 

while (nextchart=13&&nextchar!=10) 
nextchar “ getc(Uade); 
nextchar-1; 

} 

else 

XDLOC[M]=0.0; 

//read the number of blades 


fiKanf(blade, ,> %d",ftNBLADE[M]); 





stile (eexicheri"-13AAaexlchar!-10) 
nextchar - feMUade); 
■Butcher-I; 

//wed the componrel fhimrtrr 

lhcaa<(biade, *ST ^tXDIAM(MJ); 

//scrap the rest of line 

while (eejdcharl“13AAnextcharM0) 
nextchar - fe*c(biade); 
nextchar-1; 

//reed in the Made file name 

&canf(bUdc,-S«",&BLDIN[M*211); 

//scrap the rest of line 

while (ncxtchar!=-13&Anextchar!«10) 
nextchar - getc(Uade); 
nextchar »1; 

//read the wake diameter 

fscanf(bladc,^”,&XWDIAM[M]), 

//scrap the rest of line 

while (nextehar!-l3*&nextchar!=10) 
nextchar - getc(blade); 
nextchar -1; 

//read in the wake file name 

&canf(blade,' , S«",&WKJN(M*211); 



C.5.16 The reed_project_fik function, 



The rend_project_file function reads PLL project files are that written in response 
the FtlejSave Project selection from the main menu. The function receives a pointer to a 
FILE structure. 


void read jwcject file(FILE *blade) 

{ 

/***•**•*•••*•*••«•*••**•••••*••*•< 


* declare variables that are defined ia the pU.c file sad that will be used in this function * 




extern char 

RUN_ID(21], INPUTF1LE|20); 

extern int 

LDEV, optimize rpm, optimize diameter, maximize thrust,no runtime options, 

eflective_wake_flag. tunncl_operatioo_flag. ductforcesflag, 

duct rina vortex forces flax. circjspt_wake_alignment_flag. 

estimate duct circulation flag, estimate damping_flag, NPANEL, 

contnctka_ratio_flag, wake_alignment_flag, 

circulation optimization flag, chord optimization flag. 

duetjnean_line_flag, empirical_vcd_flag, propel lertypeflag, 

propellerjnaterial; 

extern float 

horsepower. RPM[ maxcorap], thrustcoefficient, 

est i mated_duct_circulation. torqueratio, damping. 

propdlerductthrustratio, propeller tins thrust ratio. 

thrust estimate, CLMAX, TCHDMAX, HUBCHDfmax compl.TTTP, CDCON, 

RHVOR, PL1, PL2, CONRAT, GAPFAC, 

materialj»nstant[userjiefinedjmaterial+l](2], rake[2]; 

* Variable dedantions * 


iot M, i, //loop counters 

nextchar-1; -^integer variable for reading 

//data character by 

character 

//scrap first line 

while (nextchar!-13&&nextchar!-10) 
nextchar - getc(blade); 
nextchar-1; 

//scrap second line 

while (nextchar!=13&&nextchar!=10) 
nextchar — getc(blade); 
nextchar-1; 

//read in the input filename 


I 
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I 


» 
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(btade,-%2Gs",INPinTILE); 


//nap the rat of the tine 

while (Bextcherf-13AA«extdi«rf»10) 

■i rtrhar ■ irMTilirtrV 
nextchar-1; 

//read in the RUN ID 

lbf(i-0;K20;i++) RUNJDUl-*e*c(btade); 

RUN_n>{20)-NULL; 

//scrap the rod of line 

while (ocxtcharl-13£Anextcharl”10) 
npitdiy ■ getc(biade); 
nextchar-1; 

//read in the number of components 

focanf(blade, *Sd*, ALDEV); 

//scrap the rest of line 

while (nextchar!-13AAnextchar!-10) 
nextchar - getc(biadc); 
nextchar «32; 

//read in the rpm for both propellers, if there are two 
for(M^M<LDEV;NfrHO { 

ficanflhbdr, "NT,ARPM[M]); 

//scrap the rest of line 

while (nextcfaari*13dtdbiexachar!>10ftdtnextdiart«>EOi r ) 
nextchar - getc(biade); 
nextchar-1; 

) 

//this if t U t naan recognizes here project files 

i fff sc anffbta de, ‘%d*^topdmi2g_rpm)l-EOF){ 

//scrap the rest of line 

while (nextcharl-13AAnextchar!»10) 
nextchar ~ getc(biade); 
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//read the o ytaMa diameter flag 

dimeter); 

/heap the net of tine 

while (nextcharl-13&&nextchart-10) 
nextehar-getoCMade); 
nextehar-1; 

//read the Maximize thrust flag 

&caud(blade. , %d*.Aiiuximize_thni«t); 

//scrap the rest of line 

while (nextchar!-13&Anexlchar!°=10) 
nextefaar - getc(blade); 
nextehar-1; 

//read the Horsepower for maximizing threat 

fscanftblade, *%T ,&horsepower); 

//scrap the rest of line 

while (nextchar!=13&&nextcharl=10) 
nextehar - gctc(blade); 
nextehar =1; 

//read the Thrust coefficient for maximizing thrust 

fscanf(blade,*W,*thnist_coefficient); 

//scrap the rest of line 

while (nextchar!=*13&Anextchar!=10) 
nextehar - getc(blade); 
nextehar “1; 

//read the No runtime options flag 

&canf(blade,' , %d”,Ano_runtime_options); 

//scrap the rest of line 

while (nextchart--13&&aextchar1 a ‘10) 
nextehar * getc(Made); 
nextehar-1; 

//read the Effective wake flag 

£scanf(blade, "%d", Aeffcctive_wakeflag); 
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//map the rat of tine 

while (nexlchart-l34Utaexjchart-lO) 
wxtchar * gdc(Madc); 


//map the rat of line 

while (nexlchart-lSAftaextcharl-lO) 
nextchar ■ getc(biade); 
nextchar *1; 

//reed the Duct forces flag 

fimn/(hlatte, l *%d*^duct_forecsflag); 

//scrap the rat of line 

while (nextchar!~13&&nextchart~10) 
nextchar - getc(blade); 
nextchar *1; 

//read the Duct ring vortex forces flag 

fscanffl>lade,*%d\&duct_ring^vortex_forces_flag); 

//scrap the rest of line 

while (nextchar!-13A&nextchar!»10) 
nextchar = getc(blade); 
nextchar -1; 

//read the Circ opt wake alignment flag 

ficanfl^iade, a %d"^fcciic_opt_walw_alignniait_flag); 

t 

//scrap the rest of line 

while (nextchar!*13AAncxtchar!=10) 
nextchar * getc(blade); 
nextchar “1; 

//rad the Estimate duct circulation flag 

£scanl(blade > ^^* > &cstiinate_duct_circuUtfion_fUg); 
//scrap the rest of line 

while (nextchar!“13&Anextchar!“10) 
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//scrap ike real of Use 


■wtf fcM - eUrft Mart rV 
-t; 


shfciade.'Sd^tatimatejiainpingJlag); 


while (nextchar!-13AAaextchar!-10) 
nextchar-getc(biade); 
nextchar-1; 

//read the Estimated duct circulation 

&canf(bladc,*%f , ,Acs<imatedcbctcirculation); 

//scrap the rest of line 

while (nextchar!«13&&nextchar!«10) 
nextchar - getc(blade); 
nextchar-1; 

//read the Torque ratio 

fkanf(blade,' , %P,&torque_ratio); 

//scrap the rest of line 

while (nextchar!=13A&nextehar!=10) 
nextchar - getc(blade); 
nextchar*!; 

//read the Damping 

ficanf(blade, ,l W,ftdampuig); 

//scrap the rest of line 

while (nextchar!” 13&&nextchar!=10) 
nextchar * getc(blade); 
nextchar *1; 

//read the Propeller duct thrust ratio 

ffcamf(blade,'‘%F,&propeJler_duct_thnistratio); 

//scrap the rest of line 

while (nextchar!-13A&nextchar!« 10) 
nextchar * getc(biade); 
nextchar *1; 

//read the Propeller ring thrust ratio 
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//scrap the rat of line 


while (aex>ch«f<-13AAacxlchf)-10) 
nextehar - fetc(blade); 

//read the Thrust estimate 

//scnp the rest of line 

while (nextchari-13AAaextchar!~10) 
nextchf ■ gctc(btade); 
nextehar “1; 

//read the maximum lift coefficient 

£scanf(blade,*%r,&CLMAX); 

//scrap the rest of line 

while (ncxtcharNn&Anextcharl^lO) 
nextehar » getc(blade); 
nextehar-1; 

//read the maximum thickness to chord ratio 

6canf(Uade l ^.ftTCHDMAX); 

//scrap the rest of line 

while (nexteharl°13ftAncxtcharl=10) 
nextehar = getc(blade); 
nextehar -I; 

//lead the minimum chord/diameter ratio at the root for each component 
fbr(M^;M<LDEV;M++){ 

&cani(blade,*%r,ftHUBCHD(M]); 

//scrap the rest of line 

while (nextchar!*13&Anextchar!“10&Anextchar!“EOF) 
nextehar * getc(b(ade); 

nextehar -1; 

} 


//read the tip thickness to chord ratio 


fearflbiade.'Sr.ArnP); 


//•crap the rest of line 

white (aextchari-13dUfcaextcharH10) 

urtrfar - gwWMxV) 

//read the wmmbtt of panels 

fanu>f[hterie,*%d",ANPANEL); 

//scrap the rest of line 

white (ncxtchar 1-13A&nextchar!«10) 
nextchar = getc(blade); 
nextchar “1; 

//read the drag coefficient multiplier 

fscanfiblade, *%T,ACDCON); 

//scrap the rest of line 

while (ncxtchar!-13&&ncxtchar!«10) 
ncxtchar — getc(blade); 
nextchar -1; 

//read the hub vortex radius to hid) radius ratio 

fscanflbladc,“%T.&RHVOR); 

//scrap the rest of line 

while (ncxtchar!=13&&nextchar!=10) 
nextchar — getc(blade); 
nextchar “1; 

//read the first Lagrange multiplier 

fscanll[blade,*%r,&PLl); 

//scrap the rest of line 

white (nextcharl=13<fc&nextchar!=10) 
nextchar - getc(biade); 
nextchar ”1; 

//read the second Lagrange multiplier 

ficanf(biade, a %r,&PL2); 


//scrap the rest of line 




while (nextchar!=13AAnextchar!=10) 
nextchar * getc(blade); 
nextchar-1; 

//read the contraction ratio flag 

fscanfl^) lade, "%d",Aeon traction_ratio_flag); 

//scrap the rest of line 

while (nextchar!-13AAnextchar!-10) 
nextchar - getcfblade); 
nextchar-1; 


//read the conrat 


fiscanftWade,*%( , ',ACXDNRAT); 

//scrap the rest of line 

while (nextchar!-13AAnextchar!=10) 
nextchar - getc(blade); 
nextchar-1; 

//read the wakealignmentflag 

fscanf(blade, "%d" .Awakealignmcntflag); 

//scrap the rest of line 

while (nextchar!=13AAnextchar!=10) 
nextchar = getc(blade); 
nextchar =1; 

//read the circulationoptimizationflag 

fscanflblade, *°/«d",&circulation_opti mizationflag); 

//scrap the rest of line 

while (nextchar!=13 AAnextchar!=10) 
nextchar - getc(blade); 
nextchar-1; 

//read the chordoptimizationflag 

fscanf(blade,"*/«d",&chord_optimization_flag); 

//scrap the rest of line 

while (nextchar!-13AAnextchar!-10) 
nextchar - getc(blade); 
nextchar-1; 






//read the duct 


i_line_flag 


finid(biade, a Sd <> ,Aduct_aiean_liiie_flag); 

//acnp the rest of line 

while (nextcharl»13&dt nexte harl»10) 
ncxtchar - getc(bladc); 
nextchar -1; 

//read the empirical_vcd_flag 

fscanfl[biade,^«d“,A^tnpiricaJ_vcd_flAg), 

//scrap the rest of line 

while (nextchar!” 13&Anextchar!=10) 
nextchar ■* getc(blade); 
nextchar *1; 

//read the duct tip gap factor 

fscanf(bladc,*%r,&GAPFAC); 

//scrap the rest of line 

while (ncxtchar!=13&&nextchar!=10) 
nextchar = getc(blade); 
nextchar >1; 

//read the propcllcrtypcflag 

£scanf(blade,’ w /od",&propeller_type_flag); 

//scrap the rest of line 

while (nextchar!=13&&ncxtchar!=10) 
nextchar = getc(blade); 
nextchar-1; 


//read the propellcrmaterial 

fscanf(blade,’ M, /od",&propcller_material); 

//scrap the rest of line 

while (nextchar!=13&Anextchar!=10) 
nextchar - getc(blade); 
nextchar-1; 

//read the user defined propeller material constants 

fscanf(blade,"%r,&material_constant[user_defined_material][OJ); 


//scrap the rest of line 
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I 


4 


4 


4 


4 


4 


while (nextchari-lJAAnextcharWO) 
nextchar - fctc(blade); 

Mxkkv-l; 

fkanfnjUde,*%F,Amaierial_coosum[userdefiBed_material][l]); 

//scrap the rest of Uae 

while (nextchar!-13&Anexlchar!* 10) 

Bwftjur ■ getc(Uade); 
nextchar-1; 

//read the rake at huh and tipforabs calculations 

&canftblade,*%f , ,Arake(0]); 

//scrap the rest of line 

while (nextchar!-13&&nextchar!“10) 
nextchar * gctc(bladc); 
nextchar »1; 

fscanf(blade,*%f , ,&rake|l]); 


C.S.17 The read_plot_file function. 

The read_plot_file function reads plot files that are written by the FORTRAN 
executable. It receives a pointer to a FILE structure as an argument. 


4 


4 


4 


4 




void read_plot file(FILE ♦plot) 

{ 

* declare variables that are defined in the pll.c file and that will be used in this function * 


extern int number_radii[maxcomp], 

extern float RADIUS[max_comp][max_rad],CHORD INPUT[maxcomp][maxrad], 

PITCHANGLEUNDISTURBED [ maxcomp] [ maxrad], 
CHORDCALC[maxcomp][max_rad], 
PITCHANGLEINDUCED[max_comp][maxrad], 

UAINEFFECTIVE(max_comp][maxradl, UTIN[max_comp][maxrad], 
UAINDUCED[max_comp][max_rad], UTINDUCED{max_coinp][max_radJ, 

THICKNESS[max_comp] [maxrad], CIRCULATIONINPUTImaxcomp] [maxrad], 
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4 


4 


4 


4 


« 




« 


« 


i 


i 


DRAG(max_comp]|max_rad], CRCULATIONCALC[max_comp][inax_rad], 

LOCAIXX{max_comp][max_rad], lX)CAI£Tlmax_comp][nttx_rad], 
LOCALCQtmax_comp](max_rad], C A VITATIONNUMBERl maxcomp) [ maxrad ], 

UAINNOMINAL(max_comp][uiaxjad]; 


/**•**«**•••••**•*•*•***•»*•••**•*•••••••******•***********•*•*****•• 

* Variable declarations * 

int co m pone n t, //component#, 1 or 2 

i; //loop counter 

//read in the component number 

fecanf(plot,*%d ".^component); 

//decrement the component number so that data for component number 1 
// will be stored in the [0] variables (C programming convention) 

component-; 

//read in the number of radii 

fscanfl[plot, , *%d ",&numbcr_radii(component]); 

//loop through the radii 

for(i=0;i<number_radii[componcnt];i++) 

//read in the data for each parameter at the current radius 

fscanitylot,*%f %f %f %f %f %f %f %f %T, &RADIUS[component][iJ, 
&CHORDINPUT[component][i], &THICKNESS[component][i], 
&DRAG[componcnt][i], &CIRCULATIONINPUT[component][i], 
&UAINNOMINAL[componcnt] [i], &UAINEFFECTrVE(componentl [i J, 
&UTTN[componcnt](i], &PITCHANGLEUNDISTURBED[component][i]); 

//loop again through the radii and read the rest of the parameters 

for(i=0;i<numbcr_radii [component]; i++) 

£scanf(plot,"%f %f %f %f %f %f %f %f %f %T, &RADIUS[component] fi], 
&CHORDC ALC [component] [ i ], &PITCHANGLEINDUCED[component][i], 
&CIRCULATIONCALC[component][i], &UAINDUCED[component][i], 
&UTINDUCED [component] [i], &LOCALCL[component][i], 
&LOCALCT[componcnt][i], &LOCALCQ[component][i], 
&CAVITATIONNUMBER[component][i]); 

> 








i 


» 


» 


» 


ft 


ft 
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CS.lt The read_jUnert_fUe fuactin. 

The read_gJauert_file function reads data from the glauert.coe file written by the 

FORTRAN executable to be used should the user decide to unload the hub and/or tip of a 

hubless propeller without a ring or a zero gap duct. The function receives a pointer to a 

v 

FILE structure as an argument. 


t 




i 


void read_&lauert file(FTLE *blade) 

{ 

* declare variables that are defined in the pU.c file and that will be used in this function * 
•**•••'**«•**•»•••**••***««•••«••*•••*••••**•«**••***•**•**•***•**•*./ 

extern int NGC.LDEV; 

extern float GC[max_comp][maxj(lau_coef|; 

* Variable declarations * 

int i J; //counters for the for loops 

//loop through the components 

for(i=0;i<LDEV;i++) { 

//read in the number of coefficients for each component 
fscanf{blade,*%d",&NGC); 

//loop through and read in the coefficients 
for(j-0-j<NGC-j++) 
fccsuif(blade > “%f \&GC[i)|j)); 

> 

> 

C.5.19 The read_unload_dat_file function. 

The read_unload_dat_file function reads data from the unload.dat file written by 
the FORTRAN executable should the user decided to unload the hub and/or tip of a 
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propeller that has a ring or a zero gap duct or an image hub The function receive* a 
pointer to a FILE structure as an argument. 


« 


« 


« 


« 


I 


« 


« 


i 




void read unload dat fik(FILE *blade) 

{ 

/••••**•*•**•••*********•*«••*•*****♦**•«•***••*****••*********•**••* 

* declare variables that are defined in the pU.c file and that will be used is this function * 

••••**•••**•*•••••*•**•*•••***••*••••••••***#**•••***••••****••*•*•••/ 

extern int LDEV; 

extern float hub_drc(max_comp], tip_circ{max_co<npl, hub_radius(max_comp], 

tip_radius(max_compl, RZ|max_comp); 

* Variable dedaratioas * 

int i; //loop counter 

//loop through the components 

for(i=0;i<LDEV;i++) { 

//read in for each component: 

//circulation nearest the hub 

fscanf(bladc, ,, %r,&hubcirc[i]); 

//radius nearest the hid) 

fsoanf^blade,"%T,&.hid)_radius[il); 

//hub radius -*» 


fscanf^blade,'%r,ARZ(iJ); 
//circulation nearest the tip 

fscanf(blade,^r,&tip_rirc[i]); 
//radius nearest the tip 

£scanfCbiade,”%r,&tip_radius[i)); 


> 


} 


» 


» 




§ 


§ 


» 


» 




» 


« 


» 
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The function deletes un ne cess ary date files and initializes global variables 

in order to prepare PLL to open a new project, 

void iaitializeCvotd) 


»•*»*•*•**••*•••****•••#**•••»•••*•*••**•*••*••*•* 


* declare variables that are defined in the pU.c file sad that will be used in this ftinctioa 


extern int pk*_page, pk*_co*npooeat_flag. draw_plot_flag. unload_flag, optimizerpm, 
optimize_diameter, msximizethimt, matchEARflag. uaecurrblade, 
evaljxmaxistator, ooruntimeopUoo*, outputJEbig, componentflag. ScrollPos, 
estimatcductcirculationflig. estimate_dampipg_flag, circ_opt_wakc_alignmentJlag. 
NPANEL, coot ra ctioo_nttio_flag. wakealignmentflag, drculatkmoptimizationflag, 
chordoptimizationflag, ductjncanjine.flag, empiricalvcdjflag, 
propellertypeflag. 

propdkrmaterial. projectflag. efFective_wake_flag. tunnclopcrationflag, 
duct forces flag, duct_ring_vortex_forces_flag, Scroll Pos, optcomp; 

extern float horsepower, thrustcoefficient, RPM[maxcomp], CONRAT, GAPFAC, 

matcnalconstant [ userdefined_matenal+1 ] [ 2 ], rake[2], thrustestimate, torqueratio, 
damping, estimatedjluct.ciiailatioa, propeller_duct_thnist_ratio, 
propeller ring_thnist ratio, CLMAX, TCHDMAX, TTIP, CDCON, 

HUBCHD [ max cotnjT], RHVOR, PL1, PL2, 

GCUNLOADFRACI max_comp] [ max_glau_coef]; 

extern char ringed_propellerfmax_comp], RUN_ZD[21], INPUTFILE(20J, PROJECTFILE(20J; 


* Variable declarations 


int M; 


//loop counter 


//delete temporary files 


unlink(”plotl .out"); 

unlink("plot2.out"); 

unlink (* cutt 1 bid"); 

unlinkfcurrt.bkT); 

imlinkCdetaill.out*); 

unlinkCdetaiUout"); 

unlink( K summary.out*); 

unlinkCstress.out*); 

unlink(*absmles.out*); 

unlink("duct.geo"); 

unlink("fards.out"); 

unlink("nooaxi.cmp"); 
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MdiakCaoMxLdr*); 


wriufcfBoaKxiJbi*); 

luUiakCcunpbdpbd"), 
twlukCcttfrpbdl .bn*); 
uaiiakCcunpbd2.bsa*); 
ualiak(*cunpbd.vd*); 


//delete pre-arirtinf pbd output filet 


■aUakCpbdowLcbd"); 

uiUink{*pMouLhub); 

unlinkCpbdouLcmv*); 

unlink('pbdoutcinr); 

unlinkC'pbdoutgsp*); 

unlinkfpbdouLsol*); 

unlinkfpbdout. ibg); 

unlink(’pbdoutktq-); 

unlink("pbdout.obg"); 

unlink(*pbdouLbsn"); 

unlinkCpbdout. obg); 

unlinkCpbdout. rdc*); 

unlinkC’pbdoutsgr"); 

unlink(“pbdoutvq>"); 

unlink(’pbdouthdi’); 

unlink(*CTirrpbd.eiT“); 

urlink(*currpbd.ebs"); 

//initialize global variables 

for(M SB 0>I<max._filau_coef;M-H-){ 

GC_UNLOAD_FRAC[0}[M1==0.0; 

GCUNLOADFRACl 1 1[M]=0.0; 

> 


ringed_propeller{0)-='N , > 
ringedjwopellerf 1 ]='N’; 

plot_page-0; 


pkrt_componeat_flag-0; 


draw_plot_flag-0; 


unloadflagO; 
optimize_rpm=0; 
optimizcdianictcr=0; 




Mttk.EAft***; 

«t.CHfr_biafe-0; 

•Ml.aoMjd.aMoi-O; 

ao_nMti mroptio—- 1; 

JwfKIwwcr-O.O; 

tkiwt_ooefflGMt-0.0; 

outputJUgrO; 

ow n po n e n tflag-O; 

ScroUPw - 0; 

itTcp^^©,*"); 

jtrqlyfWPUTFILE,**); 

itn^PROJEdyiLE,’"*); 

projcct_fla*-0; 

RPM|OJ« 100.0; 

RPMJ 11-100.0; 

e£fective_wake_flag - 0; 

thrust_cstimatc - 0.69; 

tunnd_openaioo_flag - 0; 

duct_foroes_flag -1; 

l ^_ r i I ^ vortex _f orccs _^ a g “ i; 

torqueratio -1.0; 
eatinu^_duct_drculatMO_flag - 0; 
c<iiMiedjfcct_ciiCMtatioe - 0.05; 
fOimate_dampin^.flag - 0; 
damping - 0.0; 

propeUer_duct_thnistjratio -1.0; 
pfopeUer_ring^thnat_rat>o -1.0; 
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d«c_opt_w«fce _»li< — ert jhg - 0; 

CLMAX - 0.6; 

TCHDMAX-0.20; 

TT1P ” 0.004; 

NPANEL-10; 

CDCON - 0 004; 

RHVOR-0.3; 

PL1 - -1.0; 

PL2 - 0.0; 

cootnctioo_ratio_flag * 1; 

CONRAT-l.O; 

wakcjdi gnment_flag * 1; 

circulationoptimizationflag * 1; 

cbord_optimization_flag = I; 

ductmeanlineflag = 1; 

empirical_vcd_flag ■ 1; 

GAPFAC- 1.0; 

propeUer_typc_flag = 1; 

propelfer_maierial “ manga ncsebronzc; 

matcrialconstant[uscr_dcfincdinatcrial][0]=70.0; 

malcrial_coastant[uscrjidin«5dinatcrialJ[l]-0.30; 

rake[0]-0.0; 

rake(l]-0.0; 

Scroll.Pos - 0; 


( 

» 


§ 


ft 




» 


ft.’ 


» 
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C121 He ddetejfles hactiM. 

The ddetefiles function deletes temporary data files according to the integer flag 
passed as an argument. 

void delete fliee/iat file flag) 

{ 

iflfikflag—>pll_filei){ 

//delete temporary files 

unlinkfplotl.out"); 
ualinkCplotZ.out*); 
unlink/“detail 1. out"), 
unlink("detail2.out*); 

unlink/* summary.out*); 

uolinkC'stiest.out”); 

unlink/’absruksout"); 
unlink/'duct.geo"); 
unlink( a fiuds.out"); 
unlink/" nonaxi.cmp"); 
unlink/" nonaxi.cir"); 
unlink/’nooaxi.har"), 
unlink/"nonaxi.fbr”); 
unlink /"cunpbd.pbd"); 
unlink/currpbd l .bsa"); 
unlink("curTpbd2.bsn"); 

> 


if/fik_iUg==pbd_files) { 
//delete pre-existing pbd output files 


unlink("pbdout.cbd* 

unlink(*pbdouthub l> 

un<ink/"pbdout.cmv" 

unlink(*pbdout.cmT 

unlinkfpbdouLtot") 

unlink/" pbdoutgsp" 

unlink/’pbdoutsoO 

unlinkCpbdouLibg") 

unlink(*pbdoutktq 

unlink/’pbdoutbsn 

unlink("pbdout.obg") 

unlink/’pbdouLrdc" 

unlink(*pbdout. sgr" 

unlinkCpbdout.vq)*) 

unlink/’pbdouthdi" 

unlink/" currpbd. err") 

unlink/" currpbd. ebs" 


> 
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APPENDIX C.6 


The PLL and PBD FORTRAN programs. 


C.* The PUL ud PBD FORTRAN program*. 

The MTT-PLL propeller design program uses lifting line theory in representing 
propellers as a set of straight, radially oriented lifting lines corresponding to the propeller 
blades. The geometry of the blades is represented in the form of a radial circulation 
distribution. The program was developed at the MIT Marine Hydrodynamics Laboratory 
with support from the MIT Sea Grant College Program and the David Taylor Research 
Center. For this reason the code will not be reproduced in whole or in part in this 
document, either in its original form or as altered to be called by the PLL Windows™ 
application. 

The PBD-14.2 propeller design program is the product of evolution from a series 
of earlier codes developed at the MIT Marine Hydrodynamics Laboratory. The program 
was developed with support provided by the Office of Naval Research Graduate 
Fellowship Program, the Office of Naval Research, and the David Taylor Model Basin. 

As in the case of PLL, this code will not be reproduced in whole or in part in this 
document, either in its original form or as altered to be called by the PLL Windows™ 
application. 

For the purpose of the illustration of a FORTRAN code altered for operation in 
conjunction with a Windows™ application, a portion of the VLMLE code discussed in 
Chapter 2 and Appendix B is shown below. The FORTRAN code shown is used to allow 
the user to interact with the program and provide keyboard input to set the number of 
panels to be used in modelling a foil. The first line of code writes a prompt to the 
monitor. 

The READ statement that follows causes the execution of the program to pause while the 
user selects and types an integer value on the keyboard, and presses "enter". The program 
then reads the value selected by the user and stores it in the variable MC. A test is 
performed in the third statement. If the value suggested by the user falls outside of the 


acceptable range, execution of the program is redirected to statement 90 and the process 
is repeated 


WRTTECT Eater number of panels (Max:",I4.").. ",$)•) MSD 
READtV) MC 

IF(MC.LT 5 0R.MC GT MSD) GO TO 90 


The FORTRAN code shown below replaces the code described above in order to 
adapt the original VLMLE code for use by a Windows™ executable. The first executable 
line opens the INPUT.DAT file, a file written by the Windows™ executable, as logical 
unit 2 to provide the input that is usually provided via terminal interaction. The READ 
statement reads the first value from the INPUT.DAT file as the number of panels. There 
is no need to test MC at this point to ensure that it is within the acceptable range, since 
this action was performed by the Windows™ application. At some point later in this 
program the INPUT.DAT file will be closed to complete the input process. 


C-Open the input data file as unit 2- "-— ■ —— -- — .— 

OPEN(2,FILE= , INPUT.DAT,STATUS=TJNKNOWN’,FORM= , FORMATTED’) 

C 

C-Compute vortex and control point positions and weight functions— 

C 

C 

READ(2,*)MC 

C 


Output functions are implemented similarly. Data that is normally written to the 
screen, or to output text files, or to plot files, is written to files in a format recognized by 
the Windows™ application. As a preferable alternative, the Windows™ application 
functions may be written to use output and plot files written by the unaltered FORTRAN 
code. This alternative minimizes the work necessary to implement later revisions of the 
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ori ginal FORTRAN code for use by the Windows™ application. Both techniques 
employed in PLL 



APPENDIX C.7 


PLL program listings. 
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C.7 FLL progran listings. 

li fting s for the MTT-PLL Windows™ application, the MIT-PLL Editor program, 
and the MIT-PLL Help program are included in this Appendix. 

C.7.I MIT-PLL program listings. 

The PLL Windows™ application includes 37 files. Listings for these files are 
included with this document as Appendix C.7.1 on a 3.S inch, IBM PC formatted, double 
sided, high density floppy disk. The files are saved in an ASCII text format which can be 
read using a DOS text editor or any word processor capable of reading DOS text files. 
The complete files of this and the other programs in this thesis are not included in the 
written text of the thesis in the interest of limiting the size of the document. These pages 
are included with the listings in a file named README.TXT. 

The files included on the disk are described below. 

PLL.C -contains the WinMain, FrameWndProc, MDI Child Window 

Procedure, WMCommand Handler, scroll bar, and dialog box 
functions. 

WRTEPBD.C -contains the write_pbdadmin_file function. 

PAINTHUB.C -contains the paint_hub function. 

PAINTRDC.C -contains the paint_rdc function. 

PAINTVCP.C -contains the paint_vcp function. 

PAINTTST.C -contains the paint_graphs and rotation_projection functions. 

DELETE. C -contains the delete_files function. 

INITIAL.C -contains the initialize function. 

READGLAU.C -contains the read_jjlauert_file and the read_unload_dat_file 

functions. 

-contains the write_misc_files and the write_pbd_files functions. 


WRITEMISC.C 



4 



1 


WRTEDEFC 

-contains the write_deftuh_file, writewakecalcfile. 


4 


write_ductforc_file, write_thsttorq_file, write absrules file, and the 

1 



write_wkalcirc_file functions 



PAINTWAKC 

-contains the paintwake function. 


4 

PRINTPLT.C 

-contains the printplot and the drawprint functions. 

1 


PAINTPLT.C 

-contains the paintplot and the draw functions. 



PAINTBLD.C 

-contains the paintbld function. 


4 

READWAK.C 

-contains the read_wake_file function. 

1 


READPLOT.C 

-contains the read_plot_file function. 



READBLDC 

-contains the read_blade_file function. 


4 

READPRJ.C 

-contains the read_project_file function. 

1 


WRTEPRJC 

-contains the write_project_file function. 



WRTEINP.C 

-contains the write_input_file function. 


4 

READINPC 

-contains the read_input_file function. 

1 


PRINTOUT. C 

-contains the printout function. 



PAINTOUTC 

-contains the paintout function. 


4 

WRITEOUT.C 

-contains the write_output_file function. 

1 


PAINTGSP.C 

-contains the paint_gsp function. 



PAINTCMVC 

-contains the paint_cmv function. 


4 

PLL.DEF 

-the module definition file. 

1 


PLL.RC 

-contains definitions of the resources used in the PLL program. 



HEADER.H 

-contains the ^define and #include statements for the PLL program. 


4 

PLL.H 

-contains the definitions of the Windows™ identifiers. 

1 


README.TXT 

•contains a copy of these pages. 



The following files are not readable text files. 


4 

PLL.ICO 

-describes the icon used to represent the program in the 

1 



Windows™ Program Manager. 


« 
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PLLBLDICO 


-describes the icon used to represent the Blade Viewer window in 
the MDI Client window. 

PLLOUT.ICO -describes the icon used to represent the Output Viewer window in 
the MDI Client window. 

PLLPLOT.ICO -describes the icon used to represent the Plot Viewer window in 
the MDI Client window. 

PLLWAKE.ICO -describes the icon used to represent the Wake Viewer window in 
the MDI Client window. 

PLL.PRJ -the project file read by the compiler. 

PLL.PIF -a program information file used by the Windows™ environment 

to control how the PLL FORTRAN executable is run. 

PBD.PIF -a program information file used by the Windows™ environment 

to control how the PBD FORTRAN executable is run. 

Also included with this appendix are are several blade, wake, stator, and overall 
input files for use with PLL. 

C.7.2 MIT-PLL Editor program listings. 

The MIT-PLL Editor Windows™ application includes 25 files. Listings for these 
files are included with this document as Appendix C.7.2 on a 3.5 inch, IBM PC formatted, 
double sided, high density floppy disk. The files are saved in an ASCII text format which 
can be read using a DOS text editor or any word processor capable of reading DOS text 
files. The complete files of this and the other programs in this thesis are not included in 
the written text of the thesis in the interest of limiting the size of the document. These 
pages are included with the listings in a file named README.TXT. 

The files included on the disk are listed below. 

PLLEDIT.C 


ADDANGLE.C 




ADDRADUC 

• COPYC 
DBLCLK.C 
DISCARD.C 

• HEADER. H 
PAINTBLD.C 
PAINTFIL.C 

• PAINTSTA.C 
PA1NTWAKC 
PLLEDITDEF 

« PLLEDIT.H 

PLLEDIT.RC 
PRINTFIL.C 

• READBLDC 
READINPC 
READSTAT.C 

« READW/JCC 

WRTEBLD.C 
WRTEINPC 

« WRTESTAT.C 

WRTEWAK.C 
README.TXT 

• The following files are not readable text files. 
PLLEDIT.PRJ 

PLLPRJ.ICO 


i 




ft 


ft 


ft 


ft 


ft 


ft 


I 
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C.7J MTT-FLL Help program littiap. 

The MIT-PLL Help Windows™ application includes 10 files. Listings for these 
files are included with this document as Appendix C.7.3 on a 3.S inch, IBM PC formatted, 
double sided, high density floppy disk. The files are saved in an ASCII text format which 
can be read using a DOS text editor or any word processor capable of reading DOS text 
files. The complete files of this and the other programs in this thesis are not included in 
the written text of the thesis in the interest of limiting the size of the document. This page 
is included with the listings in a file named README.TXT. 

The files included on the disk are listed below. 

PLLHELP.C 

HEADER. H 

PAINTFIL.C 

PLLHELP.DEF 

PLLHELP.H 

PLLHELP.RC 

PRINTFIL.C 

README.TXT 

The following files are not readable text files. 

PLLHELP.PRJ 

PLLHELP.ICO 

This appendix also includes the text files displayed by the MIT-PLL Help program. 
The files used in presenting the contents of the PLL and PBD User’s Manuals are not 
included, for the same reason that the PLL and PBD FORTRAN source code is not 
included. 




